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ACCESS 


DATASOFT 


Battleship ST. 

. .$19 

Leader Board Golf & 


Alternate Reality: 


California Games ST ... . 

.$33 

Tourn. Disk (D) . ... 

. . $9.88 

The City (D). 

. .$19 

Champ. Wrestling ST. . . 

. .$14 

Leader Board Golf & Tourn. 

The City ST. 

. .$26 

Dive Bomber ST. 

.$33 

Disk #1 ST. 

...$16 

The Dungeon (D) . . . . 

. .$19 

Dragonriders of Pern (D) $6.88 

Tenth Frame ST. 

...$25 

Bismarck ST . 

. .$26 

Final Assault ST. 

.$33 

Triple Pack: BH1, BH2, Raid 

Firezone ST. 

. .Call 

Impossible Mission 2 ST . 

$33 

Over Moscow (D) . . 

...$14 

Global Commander ST . 

. .$26 

Metrocross ST. 

. .$16 

ACCOLADE 


Hunt for Red October (D) Call 

Summer Games (D). . . . 

. .$14 

Bubble Ghost ST. 

...$23 

Hunt for Red October ST .$32 

Technocop ST. 

.Call 

Fight Night (D). 

...$14 

Tomahawk 64K (D) . . . . 

. .$21 

Temple Apshai (D). 

$9.88 

Hardball (D). 

...$14 

Video Title Shop 64K (D) .$21 

Temple Apshai Trilogy ST 

.$14 

Mini Putt ST. 

...$23 

DAVIDSON 


Winter Games ST. 

. $14 

Test Drive ST. 

...$25 

Math Blaster (D). 

. .$32 

World Games ST. 

. .$14 

ACTIVISION 


Spell It (D). 

. .$32 

EOUAL PLUS 


Cross Country 


Word Attack (D). 

. .$32 

Financial Plus ST. 

.$129 

Road Race (D). 

. . $9.88 

ELECTRONIC ARTS 


FORESIGHT 


Ghostbusters (D) .... 

. . $9.88 

Software Classic Series: 


Draphix ST. 

.$119 

Music Studio (D). 

...$23 

Financial Cookbook (D) . 

$6.88 

Draphix Data Plotter ST.. 

.$29 

AMERICAN EDUCATION 

Lords of Conquest (D) . . 

. $9.88 

fit 


Biology (D). 

....$12 

Movie Maker (D). 

. $9.88 

Dungeonmaster ST. 

. .$25 

Grammar (D). 

. ...$12 

Music Const. Set (D) 

$9.88 

Oids ST. 

. .$23 

Science (D). 

. . .Call 

Pinball Const. Set (D) . 

. $9.88 

Sundog ST. 

. $23 

U.S. Geography (D) . .. 

,...$12 

Seven Cities of Gold (D) $9.88 

GAMESTAR 


U.S. History (D). 

,...$12 

Super uoulder Dash (D).$9.88 

Champ. Football ST. 

. .$25 


Club Backgammon ST... . $23 
Power Spreadsheet ST... . $95 

Vegas Craps ST.$23 

Vegas Gambler ST.$23 

MASTERTRONIC 

Action Biker (D).$4.88 

Chopper X ST.$14 

Ninja (D).$4.88 

Ninja Mission ST.$14 

The Last V8 (D).$4.88 

Vegas Poker & 

Jackpot(D).$4.88 

MEGAMAX 

Laser C ST.$129 

MICHTRON 

Airball ST.$25 

Airball Const. Set ST.$16 

GFA Artist ST.$49 

GFA Basic Book ST.$25 

GFA Basic Int. 3.0 ST_$65 

GFA Basic Compiler ST. . .$39 

GFA Companion ST.$33 

Goldrunner 2 ST.$25 

Int'l. Soccer ST.$25 

Juggler ST.$33 


Bop & Wrestle 64K (D). . . $19 

Captain Blood ST.$33 

De )a Vu ST .$33 

♦Deeper Dungeons (D) . . .$16 

Gauntlet ST.$33 

Gauntlet 64K (D).$23 

Flarrier Combat Sim. ST . .$33 
Indiana Jones & The 
Temple of Doom ST... . $33 

Infiltrator 64K (D).$19 

Into the Eagle's Nest ST . .$25 

Out Run ST.Call 

Road Raider ST.$33 

Road Runner ST.$33 

720 ST.Call 

Shadowgate ST.$33 

Space Harrier ST.$33 

Super Star Hockey ST ... . $33 

Uninvited ST.$33 

♦Requires Gauntlet! 
OMNITREND 

Breach ST.$25 

Breach Scenario Disk ST. .$16 

Paladin ST.$25 

Quest Disk for Paladin ST.$16 


World History (D).$12 

ANTIC 


A-Calc Prime ST.$25 

A-Chart ST.$19 

Base Two ST.$39 

Cyber Paint 2.0 ST.$49 

Flash ST.$19 

Phasar 3.0 ST.$59 

Spectrum 512 ST.$44 

3D Breakthru ST.$25 

ARTWORX 


Bridge 5.0 (D).$19 

Bridge 5.0 ST.$23 

Cycle Knight (D).$14 

Linkword French (D).$16 

Linkword French 

1 or 2 ST.$19 Ea. 

Linkword German (D) . . . .$16 

Linkword Russian ST.$19 

Linkword Spanish (D) . . . .$16 

Linkword Spanish ST.$19 

Strip Poker (D).$21 

Strip Poker 2 ST.$25 

Female Data Disk 1(D) . . .$14 

Male Data Disk 2(D).$14 

Female Data Disk 3(D) . . .$14 
Female Data Disk#4 ST. . . $14 
Female Data Disk#5 ST. . . $14 
AUDIO LIGHT 

Music Studio '88 ST.$39 

BATTERIES INCLUDED 

Degas Elite ST.$39 

BRODERBUND 

Karateka (D).$9.88 

Loderunner (D).$9.88 

Print Shop (D).$26 

Print Shop Graphics 
Library#1, #2, #3 (D) $16. Ea. 
P.S. Companion 64K (D) . . $23 

Sky Chase ST.$25 

Super Bike Challenge ST . .$14 
CENTRAL POINT 

Copy 2 ST.$23 

CINEMAWARE 

Defender of the Crown ST $33 

S.D.I. ST .$33 

Sinbad: Throne of 

the Falcon ST.$33 

DATA EAST 

Ikari Warriors ST.$25 

Kamov ST.Call 

Lock On ST.$25 

Platoon ST.$25 

Speed Buggy ST .$25 


SIERRA 


Police Quest is Sierra's trek into the brutal world of vice, 
drugs and homicide. An adult perspective on the life of a 
police officer, Police Quest deals not only with "Dirty 
Harry" aspects of the profession, but also with its daily 
routines. 

Police Quest is the most authentic graphic adventure game 
available for personal computers. Players are required to 
follow police procedures during the course of the action, 
just as officers must follow them in the real world. A 
manual explaining police procedures for arrests and other 
situations is included with the package. Police Quest is a 
dramatic tale straight from today's headlines! 



the Atari ST 
$33 


ELECTRONIC ARTS 

Alien Fires ST.$26 

Arcticfox ST.$14 

Awesome Arcade Pack ST . $32 

Bard's Tale ST.$32 

Chessmaster 2000 (D). . . . $26 
Chessmaster 2000 ST .... $29 

Double Dragon ST.Call 

Empire ST.$32 

Financial Cookbook ST .$9.88 
Lords of Conquest ST .... $14 

Marble Madness ST .$26 

Mavis Beacon Teaches 

Typing ST.$32 

Music Const. Set ST.$32 

Roadwars ST.$21 

Rockford ST.$21 

Scavengers ST.Call 

Scrabble ST.$26 

Scruples ST.$26 

Star Fleet 1 ST .$35 

Star Fleet 1 (D).$32 

Twilights Ransom ST.$23 

Zany Golf ST.Call 

EPYX 

Art & Film Director ST. . . $49 


GRIBNIF 

Neo Desk ST.$19 

HIGH-TECH EXPRESSIONS 

Astro-Grover (D).$6.88 

Award Ware (D).$9.88 

Big Bird's Spc. Delivery (D) $6£8 
Ernie's Magic Shapes (D) $6.88 

Print Power (D).$9.88 

Sesame St. Print Kit (D) .$9.88 
♦All Hi-Tech req. 64K! 

ICD 

PR Connection.$59 

Rambo XL.$29 

US Doubler: 

with Sparta DOS.$49 

without Sparta DOS . . . $29 
INTERSECT 

Interlink ST.$25 

Revolver ST.$33 

ISP 

Dyna Cadd ST.$447 

Masterplan ST.$59 

Vip Professional ST.$95 

LDW 

Basic Compiler 2.0 ST . . .$59 


Karate Kid 2 ST.$25 

Leatherneck ST.$25 

Master CAD ST.$129 

Siaygon ST.$25 

Stuff ST.$25 

Tanglewood ST.$25 

Tetra Quest ST.$25 

Time Bandit ST.$25 

Tune Up ST.$33 

MICROLEAGUE 

Baseball (D).$25 

Baseball 2 ST.$39 

Box Score Stats (D).$16 

General Manager (D) or ST . $19 
1987 Team Data (D) or ST $14 
MICROPROSE 

F15 Strike Eagle (D).$23 

F15 Strike Eagle ST.$25 

Gunship ST.$33 

Silent Service (D).$23 

Silent Service ST.$25 

MINDSCAPE 

Alien Syndrome ST.Call 

Balance of Power ST.$33 

Blockbuster ST.$25 


Universe 2 ST.$33 

ORIGIN 

Autoduel (D) or ST.$25 

Moebius ST.$25 

Quest for Clues (Book) . . .$19 

Ultima 3 (D) or ST.$25 

Ultima 4 (D) or ST.$39 

PROGRESSIVE 

Superbase Professional ST$189 
PROSPERO 

First Word Plus ST.Call 

QMI 

Desk Cart ST.$69 

ST Talk Professional.$19 

RAINBIRD 

Black Lamp ST.$19 

Carrier Command ST .. . .$29 

Corruption ST.$29 

Elite ST.$23 

Guild of Thieves ST .$29 

Jinxter ST .$25 

Starglider 2 ST.$29 

The Pawn ST.$19 

Universal Military 
Simulator ST .$33 


Virus ST.$19 

REEVE 

Diamond OS (D).$19 

SIERRA 

Black Cauldron ST.$25 

King's Quest 

1, 2, or 3 ST.$33 Ea. 

Leisure Suit Larry ST.$25 

Mixed-Up Mother Goose ST$19 

Police Quest ST .$33 

Space Quest 1 or 2 ST $33 Ea. 
SIMON & SCHUSTER 

Star Trek ST.$25 

SOFTREK 

Turbo ST.$33 

SPRINGBOARD 
Certificate Maker ST.$25 

C. M. Library#1 ST.$19 

Newsroom 64K (D).$33 

SSI 

Advanced Dungeons & 

Dragon: Heroes of the 

Lance ST.$26 

Phantasie 1, 2 or 3 ST ... $26 

Questron 2 ST.$32 

Rings of Zilfin ST.$26 

Roadwar Europa ST .$29 

Roadwar 2000 ST.$26 

Stellar Crusade ST.$39 

War Game Const. Set (D) . $19 
War Game Const. Set ST . $23 

Warship ST.$39 

Wizard's Crown (D) or ST $26 
SUBLOGIC 

Flight Sim. 2 ST.$33 

F.S. Scenery Disks.Call 

Jet ST.$33 

THREE SIXTY 

Dark Castle ST.$25 

Warlock ST.$23 

THUNDER MOUNTAIN 
Summer Challenge ST . .$9.88 

Tau Ceti ST.$9.88 

Top Gun ST.$9.88 

Winter Challenge ST . . . $9.88 

Wizball ST.$9.88 

TIMEWORKS 

Data Manager ST.$49 

Desktop Publisher ST .... $87 

D. P. Clip Art: 

Education Graphics ST .$25 
People, Places & Things ST$25 
Symbols & Slogans ST . . $25 

Partner ST.$33 

Swiftcalc ST.$49 

Word Writer ST .$49 

UNISON WORLD 

Art Gallery: Fantasy ST . . . $19 

Art Gallery 1 or 2 ST .$19 Ea. 

Print Master Plus ST.$25 

P.M. Fonts & Borders ST . . $23 
VERSASOFT 

db Man V5.0 ST.Call 

MARK WILLIAMS 
C Source Dedugger ST . . . $44 

Mark Williams C ST.$119 

WORD PERFECT 

WP Word Processor ST . .$199 

ACCESSORIES 

Bonus 5'A SS, DD . .$4.99 BX 
Bonus 5'A DS, DD . .$5.99 BX 
CompuServe Starter Kit . . . $19 
Disk Drive Cleaner .... $6.88 
Epyx 200 XJ Joystick ... .$12 

Epyx 500 XJ Joystick.$14 

Indus GT Drive.Call 

Supra Hard Drives.Call 

Supra Modems.Call 

Wico Bat Handle.$17 

Wico Ergostick .$19 


P.O. BOX 111327 — DEPT. AT — BLAWNOX, PA 15238 


♦Please Read The Following Ordering Terms & Conditions Carefully Before Placing Your Order: Orders with cashiers check or money order shipped immediately on in stock items! Personal & Company 
checks, allow 3 weeks clearance. No C.O.D.'s! Shipping: Continental U.S.A.-Orders under $100 add $3; free shipping on orders over $100. AK, HI, FPO, APO-add $5 on all orders. Canada & Puerto 
Rico-add $7.50 on all orders. Sorry, no other International orders accepted! PA residents add 67o sales tax on the total amount of order including shipping charges. CUSTOMER SERVICE HOURS: Mon.-Fri. 
9 AM-5:30 PM Eastern Time. REASONS FOR CALLING CUSTOMER SERVICE—412-361-5291 (l)Status of order or back order (2)if any merchandise purchased within 60 days from S.D.of A. is defective, 
please call for a return authorization number. We will not process a return without a return auth. #! Defective merchandise will be replaced with the same merchandise only. Other returns subject 
to a 20% restocking charge! After 60 days from your purchase date, please refer to the warranty included with the product purchased & return directly to the manufacturer. Customer service will 
not accept collect calls or calls on S.D.of A.'s 800# order lines! Prices & availability are subject to change! New titles are arriving daily! Please call for more information. ORDER LINE HOURS: Mon.-Thurs. 
9:00 AM-7:00 PM Fri. 9:00 AM-5:30 PM Sat. 10:00 AM-4:00 PM Eastern Time. 















































































































































































































































































American Techna-Vision 


For Orders Only -1-800-551-9995 
CA. Orders / Information 415-352-3787 


"Providing 8 Bit support with one of the Worlds 
largest inventories of Atari replacement parts" 

• No surcharge for VISA/MasterCard 

• Your card is not charged until we ship 


800 4 PIECE BOARD SET 

Includes Main Board, Power Supply 
Assembly, CPU Module and 10K 
Revision B Operating System Module. 
All boards are new, tested and complete 
with all components. $ ^ Q 50 


1050 MECHANISM 

Factory fresh TANDON mechs. 
i difficult r 


FLAT SERVICE RATES 

1050 DISK DRIVE.$75.00 

810 DISK DRIVE.$69.50 

850 INTERFACE.$39.50 

800 COMPUTER.$49.50 

1200XL COMPUTER. $49.50 

Flat rates include Parts & Labor, 60 day 
warranty. Include $7.00 shipping & insurance 


800 10K M B M O.S. Module 

Older 800 units need the revision "B” 
Operating system to run newer 
software. Type the following peek in 
BASIC to see which revision you 


have. PRINT PEEK(58383). 
If the result is 56 order now! 


$ 9 


50 


800/400 MODULES 

NEW PARTS COMPLETE WITH ICS 
cn • 800 Main Board 
U ou * 800/400 CPU with GTIA 
rj • 800 10K’'B” O.S. Module 
r Apu • 400 Main Board 
CML-/ n • 400 Power Supply Board 

CX853 16K Ram Module $14.50 
800 Power Supply Board $14.50 

INTEGRATED CIRCUITS 

• CPU.CO14806 

• POKEY.C012294 

• PIA.C014795 

* *™’ GTIA .C014805 

9> A 50. ANTIC.C012296 

LL • CPU. CO10745 

1 -PIA. C010750 

PATH * CPU . C014377 

^ • DELAY.CO60472 

• 2600 TIA . . CO10444 

• PIA. C012298 

•CPU. 6507 

• PIA. 6532 

•RAM.6810 

• CPU. 6502B 


C061598 $20.00 
C061991 $15.00 
1050 Rom $13.50 
C061618 $20.00 


C021697 $15.00 
C025953 $9.50 
5713 .... $5.25 
C024947 $15.00 


make difficult repairs a snap. Units 
are complete with Head, Stepper, 
Spindle motor, belt etc. Just plug in, 
no difficult alignments or adjust- 

ro ° $4750 


ments require 


WORD PROCESSORS 

• BANK STREET WRITER 

• CUT & PASTE 

• LETTER WIZARD $ -j -759 

Your choice of these | / 

three popular disk EACH 

based word processors 
For all 8 bit Atari. 


XL40 PIN LSI CHIPSET 

A Complete set of 40 Pin Large 
Scale Integrated Circuits for your 
800XL, 600XL or 1200XL computer. 
Great for quick repairs I Set 
contains one each of the ^ 1 

following: CPU. GTIA, $ 1 UO | 
ANTIC. PIA AND POKEY. • ^ 


REPAIR MANUALS 

SAMS Service Manuals for the 
following units contain schematics, 
parts listings, labelled photographs 
showing the location of 
checkpoints and more! A special 
section gives oscilloscope and 
logic probe readings allowing you 
to narrow the malfunction down to 
a specific chip or transistor! 

806, 800XL, 130XE, 400, 1025 

and 1050 .$19.50 each 

520ST Service Manual. $37.50 

MISC. HARDWARE 

13 Pin Serial I/O Cable .... $5.95 
1050 Track 0 Sensor. .. $8.50 

2793 1050 Controller 1C . . $19.50 
Paddle Controllers (Pair) .. $6.50 
400 3 Piece Board Set... $19.50 
Fastchip for 800/400 . . $15.50 
600XL 64K Upgrade Kit $29.95 
Rambo XL w/o Ram IC’s $39.95 
Supra2400 Baud Modem.. $157.95 

ACE Joystick. $7.95 

850 or PR Modem Cable $14.50 
850 or PR Printer Cable $14.50 

Printer Interface. $39.95 

I/O 13 Pin PC mount. . . $4.50 

I/O 13 Pin Plug Kit. $4.50 

ST 6’ Drive Cable .... $14.00 

810 Door Latch Assy. . . $15.00 

1027 Transformer. CALL 

U.S. Doubler. $29.95 

ST Monitor Connector.. . $5.50 
ST Drive connector plug. . . $6.50 

k ST to 5/14" Drive Cable $23.95 


r POWER PACKS 

Exact replacement trans- ^ 
former for 800/400, 1050 $ 1/150 

810, 1200XL, 850, XF551 & | *+ I 

1020 units. Part #CQ17945. 

XUXE SUPPLY 

Pcwer Pak for 800XL.600XL $ 

130XE, 65XE & XE Game. ^ 


25 ' 


00 


KEYBOARDS 

New and complete subassembly. 
Easy internal replacement. 

130XE/65XE $35.00 

800 . $40.00 

800X1_$29.50 

400 . $12.50 


SERIAL I/O CABLE 

High quality 13 pin data cable used 
to connect 8 bit Atari's to periphials 
including 1050, 810, XF551, 850, 
1027, 1010, 1020, 820, 822, 1030 
and many more. 


$ C95 


COMPUTER BOOKS 

Hackerbook. $5.00 

Inside Atari Basic. $5.00 

Atari Basic Ref. manual. $5.00 
How to 6502 Program. . . $5.00 

Programmers Ret. Guide $14.95 
Basic-Faster & Better... $22.95 
Assembly Language Guide $19.95 
XE Users Handbook .... $17.95 
XL Users Handbook .... $17.95 

Advanced Programming $19.50 
Write Your Own Games. $5.00 
/ Mapping the Atari. $18.50 

SERIAL I/O CABLE 

High Quality, 13Pin.$5.95 

MAC-65 CARTRIDGE 

6502 Machine language Macro- 
Assembler. First class tool for 
serious programmers... $59.95 

ATARI 850 INTERFACE 

Bare PC Board with parts list and 

crystal.$7.50 

Board & all plug in IC’s ... $39.50 

PR: CONNECTION 

Serial/Parallel Interface for connecting 
modems and printers.$65.00 

BASIC CARTRIDGE 

Exact replacement for 
800/400/1200XL.$15.00 

EPROM CARTRIDGES 

16K Eprom Board with case. 
Specify dual 2764 or single 27128 
style. Gold contacts. $6.95 


• SOFTWARE • 

Pac-Man Cartridge. $4.00 

Deluxe Invaders Carl .. $4.00 

Journey to the Planets .. $4.00 
Mission Asteroid Disk .. $4.00 

Crossfire Cartridge_ $5.00 

Dig Dug Disk. $9.95 

Pole Position Disk .. . $9.95 

Q*Bert Cartridge.$10.00 

Choplifter Cart. $10.00 

Silicon Warrior Cart_ $12.50 

Learning with LeeperCart. $12.50 

Springer Cart. $5.00 

Sports Spectacular Disk $7.50 

Donkey Kong Cart. $5.00 

Eastern Front Cart.$10.00 

Stratos Disk.$7.50 

Murder on the Zinfendorf $10.00 
PILOT Language Cart. . . $17.50 
Cut & Paste W.P. Disk . $17.50 
Master Typing Tutor.. $15.00 

DropZone Disk.$12.50 

Edt/Asm Cart, w/o man... $15.00 

Home filing manager.$7.50 

Frogger Disk.$5.00 

Fort ApcaJypse Disk ... $5.00 

Spider Man Disk. $5.00 

The Hulk Adventure Disk $5.00 
Wizard & The Princess .. $5.00 
Ulysses & Golden Fleece $5.00 
Human Torch & The Thing $5.00 
Musical Pilot Ed. Disk.... $5.00 

Chambers/Zorp D'sk.$5.00 

Pathfinder Disk. $5.00 

Match Racer Disk. $5.00 

Encounter/Questar Disk. $5.00 

Baja Buggies Disk. $5.00 

Com*putation Disk ... $5.00 

Debug Childware Disk .. $5.00 
Crystal Raider Disk .... $5.00 

Dispatch Rider Disk_ $5.00 

Master Chess Disk .... $5.00 

Molocule Man Disk.$5.00 

Speed King Disk.$5.00 

Last V-8 Disk. $5.00 

Fractions Tutorial Disk.. $5.00 

Reading Skills Disk.$5.00 

Clowns & Balloons Disk $7.50 
Fun in Learning Disk .... $7.50 
Fun in Numbers Disk .. $7.50 
Honey Craze Math (D) $7.50 

The Factory Disk_ $20.00 

Gorf Cart. 800/400 .$4.00 

Atlantis Cart. $4.00 

Wombats Adventure (D) $5.00 

ACTION O.S.S.$59.95 

BASIC XEO.S.S. $59.95 

MAC-65 O.S.S. $59.95 

BASIC XL O.S.S. . . . $49.50 
SpartaDOS Const. Set $39.50 

Mercenary Disk. $12.50 

The Goonies Disk_ $12.50 

Conan Disk. $12.50 

Saracen Disk. $9.95 

Crosscheck Disk .... $12.50 
Never Ending Story (D) $12.50 

Gunslinger Disk. XLVXE $9.95 
Letter Wizard W.P. (D) $17.50 

Basic Compiler for 800 $29.95 
Telelink 1 Cartridge_$10.00 


CALL TOLL FREE 
1 - 800 - 551-9995 

IN CALIF. OR OUTSIDE U.S. 
CALL 415-352-3787 


AMERICAN TECHNA-VISION 

Mail Order: 15338 Inverness St., San Leandro, Ca. 94579 
Repair Center: 2098 Pike Ave., San Leandro, Ca. 94577 

Terms: NO MINIMUM ORDER. We accept money orders, personal checks or 
C.O.D.s. VISA, Master/Card okay. Credit cards restricted to orders over $20.00. 
No personal checks on C.O.D. - Shipping: $4.00 shipping and handling on orders 
under $150.00. Add $2.25 for C.O.D. orders. In Canada total $6.00 for shipping and 
handling. Foreign shipping extra. Calif, residents include 7% sales tax. All items 
guaranteed 30 days from date of delivery. All sales final.. 

Prices subject to change without notice. Send SASE for free price list. Atari is a reg. trademak ot Atai Cap. 















































































A COMPUTER SOFTWARE SERVICES 

RO. BOX 17660. ROCHESTER. N.Y. 14617 
ATARI 'PHONE (716) 467-9326 

JUST RELEASED! 

$99.95 “SUPER ARCHIVER II”! 

(for ATARI 1050 drives) 

NOW! COPYS all ENHANCED DENSITY programs plus retains all of the features 
of our World Famous SUPER ARCHIVER! (see below). Allows you to COPY or 
CREATE single or ENHANCED density protection schemes (including PHAN¬ 
TOM SECTORS!). Completely automatic; compatible with the BIT-WRITERI; the 
ULTIMATE BACKUP/PROGRAMMING device! Only $99.95 plus $4 S/H/l 
NOTICE! If you already own a SUPER ARCHIVER!, you can upgrade to a SUPER 
ARCHIVER II for only $29.95 plus $4 S/H/l (disk only - no additional hardware 
required). 

THE 

$69.95 “SUPER ARCHIVER”!® $69.95 

(for ATARI 1050 drives) 

The new SUPER ARCHIVER, obsoletes all copying devices currently available 
for the ATARI 1050! It eliminates the need for Patches, PDB flies, Computer 
Hardware, etc. Copies are exact duplicates of originals and will run on any 
drive; without exaggeration, the SUPER ARCHIVER is the most powerful 
PROGRAMMING/COPYING device available for the 1050! Installation consists 
of a plug-in chip and 6 simple solder connections. Softwares included. 
Features are: 


TRUE DOUBLE DENSITY 
ULTRA-SPEED read/write 
FULLY AUTOMATIC COPYING 
SUPPORTS EXTRA MEMORY 
SCREEN DUMP to printer 
TOGGLE HEX/DEC DISPLAY 
SECTOR orTRACK TRACING 
AUTOMATIC DIAGNOSTICS 
DISPLAYS HIDDEN PROTECTION 
ADJUSTABLE/CUSTOM SKEWING 
AUTOMATIC SPEED 
COMPENSATION 
AUTOMATIC/PROGRAMMABLE 
PHANTOM SECTOR MAKER 


• ARCHIVER/HAPPY ARCHIVER 
COMPATIBLE 

• BUILT-IN EDITOR - reads, writes, 
displays up to 35 sectors/track 
short 

• BUILT-IN CUSTOM FORMATTER 
up to 40 sectors/track 

• BUILT-IN DISASSEMBLER 

• BUILT-IN MAPPER - up to 42 sectors/ 
track 

• DISPLAYS/COPIES Double Density 
HEADERS 

• AUTOMATIC FORMAT LENGTH 
CORRECTION 

• SIMPLE INSTALLATION 

The SUPER ARCHIVER is so POWERFUL that only programs we know that can’t 
be copied are the newer ELECTRONIC ARTS and SYNFILE/SYNCALC (34 FULL 
sectors/track). If you want it ALL . .. buy the “BIT-WRITER”! also ... then you’ll 
be able to copy even these programs! Only $69.95 plus $4 S/H/l. 

$79.95 ‘‘BIT-WRITER”! $79.95 

The Super Archiver ,, BITWRITER ,, ! is capable of duplcating even the “uncopyable" 
EA and SYN series which employ 34 FULL sectors/tracks. “BIT-WRITER”! is 
capable of reproducing these and FUTURE protection schemes of non 
physicially damaged disks. PLUG-IN circuit boards and 4 simple solder 
connections. The “SUPER ARCHIVER with “BIT-WRITER”! is the ultimate 
PROGRAMMING/COPYING device for Atari 1050's. EXACT DUPLICATES of 
originals are made! Copies run on ANY drive. Must be used with Super 
Archiver. Only $79.95 plus $4 S/H/l. 


$69.95 


“ULTRA SPEED PLUS” $69.95 


Imagine a universal XL/XE Operating System so easy to use that anyone 
can operate it instantly, yet so versatile and powerful that every Hacker, 
Programmer and Ramdisk owner will wonder how they ever got along 
without it! Ultra Speed Plus puts unbelievable speed and convenience at 
your fingertips. Use ANY DOS to place an ULTRA SPEED format on your disks, 
boot any drive (1-9) upon power-up, format your RAMDISK in Double Density, 
activate a built-in 400/800 OS for software compatibility, plus dozens of other 
features too numerous to mention! Below are just a FEW features you'll find 
in the amazing OS: 


ULTRA Speed SI0 for most 
modified drives 
ULTRA Speed Is toggleable 
Boot directly from RAMDISK 
Special timer circuits not re¬ 
quired for 1 or 2 Meg upgrades 
Background colors adjustble 
Reverse use of OPTION key 
Cold-start without memory loss 
’ Built-In floppyldlsk configuration 
editor (1-9) 


• Built in RAMDISK configura¬ 
tion editor (1-9) 

• RAMDISK exactly duplicates 
floppy drive so sector copy¬ 
ing and sector editing are 
now possible 

• Built In MINI Sector Copier 

• Toggle SCREEN OFF for up to 
40% Increase of processing 
speed. 

• Toggle Internal BASIC 


• Ram resident disk loader 

B rogram (MACH 10 menu) 
OUBLE DENSITY RAMDISK 
capable 

• Entire MEMORY test that pin¬ 
points defective RAM chip 
• Boot any drive (1-9) upon 
power-up or cold-start 
• Supports memory upgrades 
up to TWO MEGABYTES 
• THREE Operating Systems In 
one (XL/XE, 400/800, ULTRA 
SPEED PLUS) 


$29.95 


“XF551 ENHANCER!” 


$29.95 


The XF551 Atari drive is a fine product with one major flaw...it writes to side 
TWO of your flopping disks BACKWARDS. This causes read/write 
incompatibility problems with all other single sides drives made for Atari 
such as Indus. Trak, Rana, Percom, Astra, Atari 1050, Atari 810, etc. Add the 
XF551 ENHANCER to the new XF551 drive and your problems are over! This 
device will restore 100% compatibility while retaining original design 
qualities of Atari’s super new drive. The XF551 ENHANCER Is a MUST for all 
XF551 Owners. Installation is simple. Only $29.95 plus $4 S/H/l. 


DEALER/DISTRIBUTOR/USER GROUP Discount availalbe call for info. 

PHONE Orders - MASTER CARD, VISA MAIL - Money Orders, Checks 

•SHIPPING! Add $4 for Shipping/Handling/Insurance within the U.S.A. 

UPS BLUE LABLE (2nd DAY AIR) available for $3 extra per shipment. 

CALL TODAY! (716) 467-9326 COMPUTER SOFTWARE SERVICES 

9 am - 5 pm (EST) WEEKDAYS P.O. Box 17660 

Rochester, N.Y. 14617 


A 

ATARI' 


$39.95 RICHMAN’S $39.95 

80 Column Word-Processor! 

Easy to use, very powerful, and NO ADDITIONAL HARDWARE required! 
Works with TV or Monitor! This “DISK ONLY” 80 Column Word-Processor is 
simple to use while offering numerous features such as: 

• Completely Menu driven 

• Self contained DOS 

• Complete Text formatting 

• Built in Printer Drivers 

• Page numbering 

• Justify and Endfill 

• High Speed Cursor 

• Dictionary 

• 80 COLUMNS ON THE SCREEN! 

One expert has compared 40 domestic and foreign word-processors 
and concluded that the RICHMANS 80 Column Word-Processor is the 
best! Only $39.95 plus $4 S/H/l. (64K required). 


• Insert and Delete 

• Search Mode 

• View only mode 

• Memory Statistics 

• Alternate Output 

• Change screen Colors, 
borders, luminesce 

• Mouse compatible 


$39.95 


THE “QUINTOPUS!” 


$39.95 


The “QUINTOPUSI” is an inexpensive device that provides a tremendous 
amount of convenience while eliminating the problems associated with 
the endless "daisy-chaining” of peripherals (eg: drives, interfaces, printers, 
modems, cassettes, eta). The “QUINTOPUSI” is an I/O port expander that 
converts a single I/O output/input into five additional outputs/inputs. Instead 
of daisy-chaining all of your peripherals (which often times results in passing 
a signal through 30 feet or more of cable!), the “QUINTOPUSI” allows each 
device to be connected directly to the computers through only three or 
four feet of cable. This is particularly useful when attempting to use 
ULTRASPEED or WARPSPEED data transfer rates. The “QUINTOPUSI” also 
provides the “extra" I/O ports often needed to connect devices not having 
daisy-chaining capabilities. Cable resistance and compacitance are 
greatly reduced thereby significantly improving the opportunity of 
accurate data transfers! Only $39.95 plus $4 S/H/l. 

$59.95 THE “QUINTOPUS!” $59.95 

(with SWITCHABLE PORTS!) 

This Deluxe version of the “QUINTOPUS!” has all of the above features with 
the additional benefits of two SWITCHABLE PORTSI This means you can 
connect two computers to one printer or two printers to one computer; you 
can switch in a computer/printer combination and while you're printing 
out a long document, switch in a second computer to access a modem, 
disk drive, cassette deck, etc! Switch multiple combinations of peripherals 

or computers without the hassel or re-arranging I/O cables-simply flip 

a switch! Only $59.95 plus $4 S/H/l. 


LIMITED SPECIALS! 

Previously we listed these products under our FIRESALE ad but many of our 
customers feared that the software items might be smoke or water 
damaged. They're NOT! All of the items listed below are BRAND NEW...only 
their literature or packing may have slight cosmetic imperfections. All items 
are fully warrantied! Quantities are limited! No rainchecks! 

LIMITED 

NORMALLY SPECIALS 


1. PILL (without case) 

$ 70 

$19 

2. SUPER PILL (without case) 

80 

22 

3. XL FIX ROM 

70 

19 

4. ULTRA MENU/DOS 

30 

19 

5. DISKCRACKER (Newest version) 

50 

19 

6. ELECTRONIC PHANTOM SECTOR MAKER DELUXE 

60 

35 

7. RICHMANS 80 COLUMN WORD PROCESSOR 

60 

29 

8. MIRACLE (Disk only Version of Impossible) 

70 

19 

9. IMPOSSIBLE for 800 or 800XL 

150 

69 

10. XL MATE 

30 

15 

11. COMPACTOR 

30 

15 

12. KLONEII (Generic HAPPY backup) 

100 

75 

13. SILENCER 

30 

19 

14. BLACK PATCH (MASTER) 

50 

25 

15. BLACK PATCH DATA DISKS 1 8i 2 

20 

10 


•Order 5 Items or more and we will pay the freight! 

These SPECIALS are for C.S.S. customers only - NO DEALER DISCOUNTS • NO RAINCHECKS 
• LIMITED QUANTITIES 
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When you want to talk Atari 


XL/XE HARDWARE 



CMO SPECIAL 

Atari 800XL $69" 

65XE.109.00 

130XE.149.00 

INTERFACES 

:R Connection.59.99 

Printer Connection.34.99 

Supra 

1150 .39.99 

1151 (1200 XL) .40.99 

Xetec 

Graphix Interface.38.99 

Atari 

850 Interface.109.00 

XL/XE ENHANCEMENTS 

Axlon 32K Mem. Board (400/800) .19.99 
Atari 80 Column Card.74.99 

ICD 

BBS Express (ST).52.99 

Sparta DOS Construction Set.28.99 

US Doubler/Sparta DOS.47.99 

Real Time Clock.48.99 

,J3ambo XL.28.99 

j/U5 Doubler.28.99 

Hmodems 

Atari 

SX212 300/1200 (ST) .79.99 

XMM301 .46.99 

Anchor 

VM520 300/1200 ST Dir. Con. . . .109.00 

Avatex 

1200 HC.89.99 

2400 .169.00 

Supra 

2400 Baud XL/XE or ST.159.00 

2400 Baud (no software).139.00 

MONITORS 

Magnavox 

CM 8505 14” Composite/RGB/TTL .. .189.00 


ST HARDWARE 


Call For Current Information 
On The Entire ST Line! 


□ 


ATARI SMI224 _ 

RGB/Color Monitor ^329 

520ST FM RGB/Color System. . .829.00 
SMI24 Monochrome Monitor. . . .179.00 


PRINTERS 



CMO PACKAGE EXCLUSIVE 
Atari 800XL & XF551 Drive 

w/5 Undocumented ROMS Asteroids, Defender, 
Missile Command, QIX, Star Raiders $259 


DRIVES 


Atari 

ST 314 DS/DD.219.00 

XF551 Drive (XL/XE) .179.00 

SHD204 20 Meg Hard Drive.Call 

I.B. 

5V4 m 40 Track (ST).219.00 

5V4” 80 Track (ST).279.00 

I.C.D. 

FA*ST 20 Meg.629.00 

FA*ST 30 Meg.849.00 

FA*ST Dual Hard Drives.Call 

Indus 

GTS 100 3 V 2 ” DS/DD (ST).189.00 

GT 1000 5V4” DS/DD (ST).209.00 

GT Drive (XL/XE).179.00 

Supra 

FD-10 10MB Removable Floppy. 859.00 
30 Meg Hard Drive (ST).649.00 

CALL FOR DISKETTE SPECIAL 



Atari 1020 Printer 


40 Col. Color $1999 

Atari 


1027 Letter Quality XL/XE. 

. .69.99 

XDM121 LQ (XL/XE). 

.189.00 

XM-M801 XL/XE Dot Matrix . . . 

.189.00 

Brother 


M-1109 100 cps Dot Matrix. . . . 

.169.00 

M-1509 180 cps Dot Matrix 

.359.00 

HR-20 22 cps Daisywheel. 

.349.00 

Citizen 


120D 120 cps Dot Matrix . 

.159.00 

180D 180 cps Dot Matrix . 

.179.00 

Premier-35 35 cps Daisywheel . 

.549.00 

Epson 


LX-800 150 cps, 80 col. 

.189.00 

FX-850 264 cps, 80 col. 

. . . . Call 

LQ-500 180 cps, 24-wire. 

. . . . Call 

LQ-850 330 cps, 80 col. 

. . . .Call 

NEC 


P2200 pinwriter 24-wire. 

.379.00 

Okidata 


Okimate 20 color printer. 

.129.00 

ML-182 +120 cps, 80 column . 

.229.00 

ML-390 +270 cps, 24-Wire_ 

.539.00 

Panasonic 


KX-P1080i 144 cps, 80 col_ 

.169.00 

KX-P1091i 194 cps, 80 col_ 

.199.00 

Star Micronics 


NX-1000 140 cps, 80 column . . 

.179.00 

Toshiba 


P321-SL 216 cps, 24-wire. 

.499.00 

ACCESSORIES 


Allsop Disk Holders 

Disk File 60-5V4”.9.99 

Disk File 30-3V 2 ”.9.99 

Curtis 

Emerald .39.99 

Safe Strip.19.99 

Universal Printer Stand.14.99 

Tool Kit.22.99 



Your Source for Hardware, Software & Peripherals 































































































.you want to talk to us. 


SPECIALS XL/XE 


#AAB822P 822 Printer Paper.$2.49 

#AA 14746 T.V. Switch Box.2.49 

#AA4010 Tic-Tac-Toe.4.99 

#AA4011 Star Raiders.3.99 

#AA4012 Missile Command.3.99 

#AA4013 Asteroids.4.99 

#AA4022 Pac Man.4.99 

#AA4025 Defender.4.99 

#AA4027 QIX.4.99 

#AA4102 Kingdom (Cass.).1.99 

#AA4112 States & Capitals (Cass.). 1.99 

#AA4121 Energy Czar.1.99 

#AA4123 Scram (Cass.).1.99 

#AA4126 Speed Reading.2.99 

#AA4129 Juggle’s Rainbow.1.99 

#AA415 File Manager.8.99 

#AA4204 1020 Color Pens.1.99 

#AA5047 Timewise (D).3.99 

#AA5049 Visicalc (D).24.99 

#AA5050 Mickey Outdoors.5.99 

#AA5081 Music Painter (D).9.99 

#AA6006 Counseling Procedure. . . .1.99 
#AA7102 Arcade Champ (NoJ. Stk)6.99 

#AA8030 E.T. Phone Home.3.99 

#AA8048 Millipede.4.99 


ST SOFTWARE 


Access 

Leaderboard Golf. 

. . . .22.99 

Accolade 

Hardball. 

. . . 21.99 

Activision 

Hacker 11/Music Studio (ea.). . 

. . . .28.99 

Antic 

Flash. 

... .21.99 

Avant Garde 

PC Ditto. 

. . . .59.99 

Batteries Included 

Degas Elite. 

. . . .37.99 



Cygnus 
Starfleet I 


CLOSEOUTS XL/XE 


ROM CARTS (XL/XE) 
$2^ ea or 5 for $13" 



Choose frj 2 m:j£pace Invader^, Star 


sliders,^ 
^c ManT 


issile Co. 
alaxian 


ers, ; 

and,|Ssteroids, 
tefender, QIX, 


jper Breakout, E.T., Eastern Front, 
Dbotron. 


Rocklyn 


Gorf. 

.2.99 

Anti-Sub (Disk). 

.2.99 

Journey to Planet. 

.2.99 

Atari Program Exchange 


10 Different Cassettes For. . . 

.. .$11.99 


$3299 


ST SOFTWARE 


Data East 

Speed Buggy.25.99 

Epyx 

Auto Duel.31.99 

Dive Bomber.29.99 

Firebird 

Jewels of Darkness.19.99 

The Sentry/Tracker (ea.).12.99 

FTL 

Dungeonmaster.29.99 

Metacomco 

ISO Pascal.59.99 

Michtron 

Leatherneck.29.99 

Microprose 

Gunship.28.99 

F-15 Strike/Silent Service (ea.). . .24.99 

Miles Software 

ST Wars.24.99 

Mindscape 

High Roller.31.99 

Mark Williams 

C.119.00 

Paradox 

Wanderer (3D).24.99 


SPECIALS XL/XE 


Access 

Leaderboard Golf. 

.13.99 

Accolade 

Fight Night. 

.19.99 

Atari 

Atariwriter Plus. 

.35.99 

Broderbund 

Printshop. 

.26.99 

Datasoft 

Alternate Reality (City). 

.23.99 

221 Baker St. 

.20.99 

Electronic Arts 

Pinball Construction. 

.15.99 

Firebird 

Silicon Dreams. 

.15.99 

Jewels of Darkness. 

.15.99 

Microprose 

Top Gunner. 

.14.99 

F-15 Eagle Strike. 

.22.99 

Origin Systems 

Ultima 4. 

.36.99 

Strategic Simulations 

Gemstone Warrior. 

.11.99 

Sublogic 

Flight Simulator. 

.34.99 


ST SOFTWARE 


Progressive Computer 

Graphic Artist 1.5. 

.109.00 

Psygnosis 

Barbarian. 

.25.99 

Soft Logik Corp. 

Publishing Partner. 

.54.99 

Strategic Simulation 

Questron II. 

.35.99 

Timeworks 

SwiftcalcAA/ordwriter. 

..(ea.) 43.99 

Desktop Publisher. 

.79.99 

Unison World 

Printmaster Plus. 

.25.99 



Word Perfect 


SI 59 


Call: 1-800-233-8950 

In Canada call: 1-800-233-8949 All Other Areas call: 717-327-9575 Fax: 717-327-1217 
Educational, Governmental and Corporate Organizations call toll-free 1-800-221-4283 
CMO, 101 Reighard Ave., Dept. B6, Williamsport, PA 17701 


OVER 350,000 SATISFIED CUSTOMERS « ALL MAJOR CREDIT CARDS ACCEPTED » CREDIT CARDS ARE NOT CHARGED UNTIL WE SHIP 


POLICY: Add 3% (minimum $7.00) shipping and handling. Larger shipments may require additional charges. Personal and company checks require 3 weeks to 
clear. For faster delivery, use your credit card or send cashier’s check or bank money order. Credit cards are not charged until we ship. Pennsylvania and 
Maryland residents add appropriate sales tax. All prices are U.S.A. prices and are subject to change, and all items are subject to availability. Defective software 
will be replaced with the same item only. Hardware will be replaced or repaired at our discretion within the terms and limits of the manufacturer’s warranty. We 
cannot guarantee compatibility. All sales are final and returned shipments are subject to a restocking fee. We are not responsible for typographic or photographic 
errors. 
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YOU ASKED US TO BRING BACK THE SAVINGS- 

The Newsroom* is now 
sale priced for your 8-bit Atari’ 


The Newsroom includes everything 
you need to create great looking 
newsletters: Choose from over 600 
pieces of clip art • Modify clip art or 
create your own with powerful drawing 
tools • Use the built-in word processor 
to write in any of five fonts • Change 
your page easily—text automatically 
wraps around pictures to simplify 
layout and editing • Add Clip Art 
Collection™ Volumes for truly 
professional results! 

Over 350,000 families, schools and 
businesses are using The Newsroom 
to tell their story. Now its your turn. 




SHE- fa®®** 


Mix text and graphics in two-column 
layouts with dramatic full-width banners! 


Product(s) 


SAVE up to $70 (over 50%!) 
on The Newsroom and Clip 
Art Collection™ Volumes. 

• Clip Art Collection Volume 1: 

Over 600 pieces of all occasion art. 

• Clip Art Collection Volume 2: 

Over 800 pieces of business art. 

• Clip Art Collection Volume 3: 

Over 600 pieces of sports and 
recreation art. 


Suggested Retail Special Offer You Save 



$39.95 

$10.00 

$49.90 

30.00 

$59.85 

50.00 

$69.80 

70.00 


The Newsroom 

The Newsroom + any 1 Clip Art Vol. 

The Newsroom + any 2 Clip Art Vols. 

The Newsroom + all 3 Clip Art Vols. / i 39f$ 

Each Clip Art Collection Volume has a suggested retail value of $29.95. The Newsroom and Clip Art Collections are available for 
these Atari 8-bit computers: 800XL,' M 130XE,™ 65XE.™ Atari 1050™ or compatible disk drive required. 

To order by phone, call toll-free: 

1-800-445-4780, ext. 3021 

Phone orders accepted 8:30 a.m-4:00 p.m. Monday-Friday Central time (VISA/Mastercard only). 

Ask for “The Newsroom Atari Offer.” 30-day money-back guarantee! 

This is an exclusive offer directly from Springboard. This offer ends February 28,1989. 


TO ORDER BY MAIL 

Complete the order form and mail it with payment to: 

Springboard Software 
7808 Creekridge Circle 
Mpls.. MN 55435 

FORM NO. 3021 Offer expires February 28.1989 


Address (No P.O. Box)_ 
City_ 


-Zip- 


Phone (_ 


Check the Atari 8-Bit 
offer you want 

Check the volume(s) you want 

You pay 
only 

Write in 
your price 


Clip Art Vol. 1 

C1011 

Clip Art Vol. 2 

C1012 

Clip Art Vol. 3 

C1013 

□ The Newsroom only N1010 




$39.95 



□ The Newsroom + 1 Clip Art 




$49.90 



□ The Newsroom + 2 Clip Arts 




$59.85 



□ The Newsroom + 3 Clip Arts 




$69.80 



Please check one: 




SUBTOTAL 



□ Check/Money Order (Payable to Springboard) □ VISA □ MasterCard □ School RO. Attached MN residents add 6% sales tax 



Card Nn 


Exo. Date 

Shipping fee per order 

$5.00 or $15.00- 


Grand total in U.S. Dollars 




Signature (required)_ 

•U.S. & Canada add S5.00 for shipping & handling—all others add $15.00 
. Topy this form lor adai ' 


IMPORTANT INFORMATION: Copy this form lor additional orders. Springboard accepts orders by phone or mail in U.S. dollars only. Orders from outside the U.S. accepted with VISA. 

1 T.O.D. or P.O. boxes accepted. Please allow 2-3 weeks tor delivery, slightly longer lor orders outside U.S 


J. boxes accepted. Nease allow 2-3 weeks tor deliveiy slightly longer for orders outside U.S. 

Call 1-800-445-4780 or (612) 944-3915 with questions. 

Springboard. The Newsroom and Clip Art Collection are trademarks or registered trademarks of Springboard Software. Inc. Atari 800XL. 1050. 65XE and 130XE are trademarks or 
registered trademarks of Atari Corporation. The Newsroom Atari does not include The Wire Service feature. 


MasterCard or^internationaljmone|-orders only. Sorry, no cash. C. 
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EDITORIAL 


I/O BOARD 


YOUR 100% 8-BIT MAGAZINE 



Antic isn’t just talking about keeping the Atari 8-bit 
market alive, we’re doing something new about it virtually 
every month. 

Last month’s Antic announced that our 8-bit Arcade 
Catalog was back, bigger than ever and even featuring 
reissues of top commercial software which had gone out 
of print. In this issue we proudly announce the arrival of 
the 8,500-page Antic Index on CompuServe’s ANTIC 
ONLINE. The fast, friendly Antic Index database will enable you to find out 
which 1982-88 issue contained just about any Antic article, program, or review. 

For years, Antic readers have been asking for a complete index to this 
magazine’s back issues. Now that long-awaited reference tool is here. And it’s 
even more than readers would have expected, because it draws on the full power 
of CompuServe’s mainframe computers. The Antic Index is the result of months 
of work by Charles Jackson, our Technical and Online Editor, whose article 
this month explains how easily you can find exactly what you’re looking for 
in the Antic back issues. 

Not only does the Antic Index provide fast references to the correct back 
issue—many of the complete stories are available online for downloading. 

Antic still believes in the future of the Atari 8-bit market and we’re proving 
it by our actions—even at a time when so many others have fallen by the 
wayside. Starting with this issue, Antic has returned to being an all Atari 8-bit 
magazine and disk for the first time since May 1985- 

In response to overwhelming reader demand, all ST coverage is being 
switched out of Antic into our ST-only sister publication START. (ST-owning 
Antic subscribers can transfer their subscriptions to START.) Undoubtedly you 
have noticed that the Antic Magazine you now hold is thinner than the previ¬ 
ous four issues, and is staple-bound like the three issues from last summer. But 
this should cause only slight change for 8-bit owners, because the pages that 
were cut are the ST Resource section. 

Why did we start reducing the number of pages in Antic this month? Antic 
Publishing is an independent business and this magazine must make a fair profit 
in order to keep going—we certainly don’t get any subsidy money from Atari. 
Antic Magazine can still remain profitable at this smaller size, covering 8-bit 
Atari computers exclusively, with present amounts of readers and advertisers. 

The catch is that the number of 8-bit advertisers has been dropping all along, 
so Antic must look for a higher level of reader support. In order for Antic 
to keep on finding new ways to do the job for your 8-bit Atari, you need to 
subscribe for 12 issues of Antic Magazine plus disk for only $59-95. (Or upgrade 
your magazine-only subscription to include the disk.) 

Packed with 172K of high-quality Atari programs and graphics, each double¬ 
sided Antic Disk is an unequaled 8-bit software value. This month’s disk features 
every type-in program from the issue—plus Mandala Movies, a hypnotically 
colorful kaleidoscope construction set, and a series of highly detailed pictures 
created with this issue’s Hard-Wirecl Ray Tracing program. 


Nat Friedland 
Editor, Antic 


ADDING SOME ZIP 


I’d like to speed up my Atari 130XE. I no¬ 
tice that Apple II owners can upgrade their 
6502 CPUs to 65C02, or a new product 
called the Zip Chip. I’ve heard that the 
65802 is also pin-compatible. Can any of 
these microprocessors be used in my 
130XE, and is it just a matter of swapping 
one chip? Will I see any performance im¬ 
provement in such things as integer or 
floating-point calculations, memory read/ 
writes or disk I/O? What kinds of prob¬ 
lems might arise other than games running 
too fast? 

James Johnson 

Cambridge, MN 

We asked Contributing Editor Matt Rat¬ 
cliff about this and got the following re¬ 
ply: “GEnie has an extremely long thread 
on the subject of faster 6502s—even 
though it’s been established that this is vir¬ 
tually impossible to do on an 8-bit Atari. 
And even if you got all the Atari’s chips 
and operating system to handle a differ¬ 
ent microprocessor, what good is it? Only 
the software that you write yourself will 
work with if.”—ANTIC ED 


Nx -1000 


After reading the review of Star Micronics’ 
NX-1000 printer (Antic, May 1988), I had 
reservations about such an inexpensive 
printer living up to its advertisements, but 
I bought one anyway. 

I can only say that this printer has to 
be one of the best bargains around. I’ve 
teamed it up with a Supra 1150 interface 
and the combination works great. The 
graphics capabilities of this machine must 
be seen to be believed. 

I’ve used it with Print Shop, Newsroom, 
AwardWare and PaperClip with no prob¬ 
lem at all. It uses the same codes as the 
Epson LX80—and does just as well, if not 
better. For the price, this has to be one of 
the best printers around for 8-bit users. 

Thorvald Ripley 
Redondo Beach, CA 
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I/O BOARD 


REAL REASON 


I recently purchased an Atari 65XE with 
an XF551 disk drive and have noticed that 
not a lot of new third-party software is 
available for it. So I started phoning soft¬ 
ware companies to see if they would start 
making Atari 8-bit software as they do for 
the Commodore 64. They all told me ba¬ 
sically the same thing—If they could get 
big orders, they would produce it. By “big 
orders” they meant national chains, such 
as Toys R Us and Child World/Children’s 
Palace. Activision was the only company 
that said it was afraid of piracy. 

So I went to the aforementioned stores 
in my area and spoke to the store 
managers, some of whom phoned their 
district managers, who said they’d order 
Atari 8-bit software if they got decent 
responses to the requests for it. So I urge 
all Atari 8-bitters to go to local stores as 
I did. Maybe we can all still benefit from 
new software for the 8-bit. 

Robert Urbaniak 

Williamsville, NY 

Way to go! Antic agrees that this kind of 
grass-roots effort is vital to the continued 
flow of third-party products for the 8-bit. 
That’s ivhat the successful Antic write- 
in campaigns have been all about.— 
ANTIC ED 


NX-CEPTION 


I must take exception to your rather harsh 
review of the Star NX-1000 printer in the 
October 1988 Antic. I have used my NX- 
1000 Rainbow (the color version) for two 
months now and have nothing but praise 
for its quality and many special features. 

I do agree that the rear cover can be dif¬ 
ficult to remove, but I put a little silicon 
on the two tabs that hold it in place, and 
that has helped a lot. As for the front cover, 
how can you “expect” it to be one way 
or the other? Each of my previous three 
printers was unique in this respect. 

I find the loading of fanfold paper to 
be no more difficult than on my previous 
printers, and I have yet to experience the 


paper popping out of the sprockets. (Did 
you raise the clamp levers to lock the 
sprocket units?) What’s more, there is 
much less need to bother with loading and 
unloading fanfold paper. With the paper 
parking feature, you can automatically 
draw the fanfold paper out of the way, in¬ 
sert and type on single-sheet letterhead or 
envelopes and then reposition your fan- 
fold paper, all without removing the rear 
cover or removing the paper from the 
sprockets. 

I never waste a sheet of paper between 
printouts. If you start printing at the very 
top of the form, you do have to stand by 
to make sure that the first sheet gets tucked 
behind the paper bail, but this isn’t dif¬ 
ficult. 

The quality of the NLQ printing is so 
good that I really don’t mind waiting a few 
extra seconds. I especially appreciate that 
it’s available with any print pitch. Had I 
read your review before purchasing my 
new Star, I probably would not have cho¬ 
sen it. So I’m glad my Antic arrived after 
the fact. 

Carolyn Hoglin 

Orlando, FL 

Reviewer Gregg Pearlman replies: “I 
understand your point about the front 
cover, but I disagree. As it happens, the 
half-dozen or so printers I’ve reviewed for 
Antic all had front covers that went on 
and off the same way—except the NX- 
1000. So I guess shoidd have said that the 
covet' ‘goes on and off opposite from what 
I expected. ’ On the other hand, the Antic 
employee cutrently using the NX-1000 has 
removed the cover altogether—evidently 
he doesn’t want to deal with the hassle 
either. 

“Antic’s NX unit showed the problems 
described in my review while I was us¬ 
ing the printer. As for wasting a sheet of 
paper, why should you have to make sure 
the next page is tucked behind the bail? 
On our previous Star printers (NL-10, NR- 
10, etc.) you don’t have to. Essentially, 
ivhat my review said was not that the NX- 
1000 was a bad printer, but that it wasn’t 
the right printer for a user like me.— 
ANTIC ED 


PAPERCLIP QUERY 


Has anyone ever figured out a way to use 
PaperClip with a FingerPrint chip printer? 
I have an Epson RX-80 with a LetterWriter 
chip system in it and I have not been able 
to access the LetterWriter features from 
PaperClip. Electronic Arts was unable to 
help me, so I’m turning to you. 

Glen Bergstedt 
San Diego, CA 

Sorry, we never tested that hardware, so 
we’ll have to pass your question to the 
readers. Anybody got ideas ?—ANTIC ED 


Antic welcomes your feedback, but 
we regret that the large volume of mail 
makes it impossible for the Editors to 
reply to everyone. Although we do 
respond to as much reader correspon¬ 
dence as time permits, our highest pri¬ 
ority must be to publish I/O answer's 
to questions that are meaningful to a 
substantial number of readers. 

Send letters to: Antic I/O Board, 
544 Second Street, San Francisco, 
CA 94107 : 


STATEMENT OF OWNERSHIP. MANAGEMENT AND CIRCULATION 
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NEW PRODUCTS 


POWER DRESSING khh 

(t-shirts) 

Computer Lust 
P.O. Box 61734 
Honolulu, HI 96839 
(808) 988-5979 
$15 

Power Dressing is Computer Lust’s 
new line of a dozen zany, witty and 
arty silkscreened T-shirts which target 
the computer industry and users. The 
humorous designs include such pun- 
filled titles as “Good to the last Byte,’’ 



“BASIC Training,’’ “Getting Loaded” 
and “RAM-bo”. Write for a descriptive 
brochure. For your company or user 
group’s promotional giveaways, Com¬ 
puter Lust will also personalize shirts 
with a company name or logo, or even 
create a customized design. 

AUTOPREP 

(disk formatter) 

Helpways 
P.O. Box H 
Rochester, NY 14623 
(716) 334-3928 
$17.45, 16K disk 

AutoPrep automatically formats any 
number of blank disks in single or 
dual density and writes your choice of 
DOS and AUTORUN files to them. The 
entire effortless process is much sim¬ 
pler than doing it from Atari DOS. 

Price above includes $2.50 shipping. 


TURBOWORD, 

TURBOBASE 80 

(word processor, database) 

MicroMiser Software, Inc. 

163 5-A Holden Avenue 
Orlando, FL 32809 
(305) 857-6014 
48K disk 

Turboword ($49) is a word processor 
for the Atari XEP80’s 80-column 
screen. DOS 2.5 and SpartaDOS com¬ 
patible, its features include automatic 
formatting, mail merge, macros, spell¬ 
ing checker, auto RAMdisk load and 
formfeed for laser printers. 

Also utilizing the XEP80, Tbrbo- 
base 80 ($179) works like the original 
database, but with the 80 column 
screen making output formats more 
readable and easier to create. Turbo¬ 
base 80 interfaces with Turboword. 
Owners of Turbobase can upgrade for 

$39- 

DIAMOND 

(operating system) 

USA Media 
7810 Malcolm Road 
Clinton, MD 20735 
(301) 868-5494 
$29.95 each, 64K disk 

Developed by Reeve Software and now 
brought out by USA Media, Diamond 
OS brings a complete windowing 
graphics operating environment to 
your Atari XL/XE/GS—just like the ST, 
says USA Media. Use the ST mouse, 
Atari joystick, touch tablet, trackball, 
or cursor keys to activate a pointer. 
Diamond lets you use icons, windows, 
drop-down menus, dialog boxes and 
desk accessories. Diamond can even 
access up to 16 megabytes of memory, 
for those who’ve been wondering 
what to do with their upgraded 8-bits. 
The disk version already available re¬ 
quires 64K memory. An enhanced car¬ 
tridge version requiring only 48K is 
scheduled to be released in November 
1988 . 

Diamond OS is the first release in 
the ST, Jr. line and will be required 


for using the other programs including 
Diamond Paint, a paint program 
complete with draw, block move, line, 
k-line, box, circle and airbrush features. 
Diamond Paint also accepts Degas pic¬ 
tures from the ST and MacPaint pic¬ 
tures. Diamond Write is a word 
processor that includes cut and paste, a 
complete spell checker, and an 80- 
column display. Diamond Publish is 
a desktop publishing system that cre¬ 
ates text wrap-around graphics, text 
flow from column to column, and 
works with multiple-page documents. 
Diamond Programmer’s Kit in¬ 
cludes complete documentation for the 
Diamond environment and a resource 
editor that simplifies the creation of 
icons, drop-down menus, and dialog 
boxes. Programming samples in both 
BASIC and assembly language are also 
included in the kit. 

SFP 

(utility programs) 

SFP 

4 Forest Drive 
Palmyra, VA 22963-2118 
$21.95, 48K disk 

SFP is a set of utility programs for use 
with Broderbund’s SynFile-i- file 
management system. Using the SFP 
utility programs you can create, save 
and produce reports in either list or la¬ 
bel format; print or display the struc¬ 
ture of a SynFile+ file; modify look-up 
tables; alter values associated with rec¬ 
ord number and counter fields; change 
justification of any data item and re¬ 
cover deleted records. SFP comes with 
DOS 2.5 and Turbo-BASIC (64K ver¬ 
sion) and supports the same densities 
as SynFile+ when used with appro¬ 
priate DOS versions. 


New Products notices are compiled b)> 
the Antic staff from information 
provided by the products’ manufac¬ 
turers. Antic welcomes such submis¬ 
sions, but assumes no responsibility 
for the accuracy of these notices or the 
performance of the products listed. 
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BACK ISSUE 

SALE 

Complete Your Atari "Toolkit" 


SAVE 25% TO 35% 


How To Order: 


Simply give the Order Numbers of the 
issues you want, and include the letter 
corresponding to the following selections: 

A- magazine & disk 
B- magazine only 
C- disk only 


Prices: 


Magazine only 
Disk only 
Magazine & Disk 


1 To 5 
Issues 

$7.00 each 
$3.00 each 
$5.00 each 


If you order more 
than 5 Issues 

$6.50 each 
$2.75 each 
$4.75 each 


Please include shipping & handling charges: 
1 to 5 issues: $1 for each issue 
6 and over : $ 5 plus 50c for each 
issue over 5. 


Example: 1A- is for “April 1983, magazine 
& disk” 

If no letters are indicated in your order, we 
will automatically send you the magazine 
only (B). 


FOR ORDERS ONLY CALL TOLL- FREE 

(800) 234-7001 (7-5pm PST.) 

MasterCard & Visa Only 

Or send your check to: ANTIC BACK ISSUES 
544 Second Street San Francisco, CA 94107 
California residents add 6 1/2% sales tax. 


Back Issue Order Form 


Order # Selection Order # Selection 

A, B, or C A, B, or C 


Total Issues 
Ordered: 


Total Issues Ordered: 

1 to 5 

6 & over: 


No. Issues of Sel. A:_ 

x $7 ea. 

x $6.50 ea. 

= $ 

No. Issues of Sel. B:_ 

x $3 ea. 

x $2.75 ea. 

= $ 

No. Issues of Sel. C: _ 

x $5 ea. 

x $4.75 ea. 

= $. 


Total $ 

Shipping & handling $ 
Amount enclosed $. 


□ Check Enclosed □ VISA □ MasterCard 

Name _ 

Address 

City_ State_ Zip_ 

Credt Card #__ 

Exp. Date__ 

Canada, Mexico and all other foreign add $ 1. 
per issue. Payment in U.S. funds must 
accompany all foreign orders. California 
residents add 6 1/2 % sales tax. 





















































Missing any issues? Looking for those great utilities, 
games, and reviews? You'll find it all right here! 
Copies are limited, so order today! 


ORDER # ISSUE 

1 April 1983: Games—3-D Maze, Voyeur 

2 May 1983: Telecomputing—Microids, 

Tele Chess 

3 June 1983: Databases—Stargazing, 

Dancin’ Man 

4 July 1983: Adventure Games—Dragonsmoke, 

Shoot-em-up Math 

5 August 1983: Graphics—3-D Fuji, Keystroke 

Artist 

6 September 1983: Education—P/M Tutor 

7 October 1983: Sports Games—AutoCassette 

8 November 1983: Sound & Music—Air Raid, 

Casting Characters 

9 December 1983: Buyer’s Guide— 

AUTORUN.SYS, Automate Player/Missiles 

10 January 1984: Printers—Pocket Calendars, 

Screen Dump 

11 February 1984: Personal Finance—TYPO, 

Gauntlet 

12 March 1984: International Issue—DiskRead, 

Poker Solitaire 

13 April 1984: Games—Risky Rescue, 

Math Wizard 

14 May/June 1984: Exploring XL Computers— 

Escape from Epsilon, Scroll to the Top 

15 July 1984: Communications—AMODEM, 

BASIC Animation Secrets 

16 August 1984: Disk Drives—Horseplay, Recall 

17 September 1984: Computer Graphics- 

Graphics Converter, Olympic Dash 

18 October 1984: Computer Learning—Bouncing 

Ball, Antic 4/5 Editor/Animator 

19 November 1984: Computer Adventures— 

Adventure Island, Advent X-5 

20 December 1984: Buyer’s Guide—Inf obits, 

Biffdrop 

21 January 1985: Super Utilities—TYPO II, 

DISKIO 

22 February 1985: Finances—Home Loan 

Analyzer, Drum/Bass Synth 

23 March 1985: Printers—Kwik Dump, Font 

Maker 

24 April 1985: Computer Frontiers—Dot Matrix 

Digitizer, Speech Editor 

25 May 1985: New Super Ataris—Son of Inf obits, 

Arena Racer 

26 June 1985: Computer Arts—View 3-D, 

The Musician 

27 July 1985: Computer Challenges—Miniature 

Golf, Guess That Song 

28 August 1985: Telecommunications—Atari 

’Toons, Pro*Term 

29 September 1985: Power Programming— 

One-Pass Disk Copy 130, Crickets 


ORDER * ISSUE 

30 October 1985: Mind Tools—Graph 3D, GEM 

Color Cascade 

31 November 1985: New Communications— 

TYPO II Double Feature, 130XE Memory 
Management 

32 December 1985: Shoppers Guide—DISKIO 

Plus, Box-In 

33 January 1986: Atari Products are Back- 

Appointment Calendar, Dungeon Master’s 
Apprentice 

34 February 1986: Printer Power—T-Shirt 

Construction Set, Forth Escapes 

35 March 1986: Practical Applications—Lunar 

Lander Constructor, Lie Detector 

36 April 1986: Computer Mathematics—Fractal 

Zoom, 3-D Fractals 

37 May 1986: 4th Anniversary—Digital 

Gardener, Molecular Weight Calculator 

38 June 1986: Summer Computing — Weather 

Wizard, Bomb Squad 

39 July 1986: Computer Arts—Amazing Card 

Shuffler, Graf con ST 

40 August 1986: Online Communications— 

Ultrafont, Floppy Filer 

41 September 1986: Weather—WEFAX Decoder 

(8-bit/ST), BASIC Tracer 

42 October 1986: Hard Disks—Video Stretch, 

TYPO ST 

43 November 1986: Personal Finance—Budget 

dataBASE, V-Graph 

44 December 1986: Shoppers Guide—Stepper 

Motors, Nuclear Waste Dump 

45 January 1987: Talking Atari—Talking 

Typewriter, Rebound 

46 Februaryl987: Word Processing—SF 

Fogger, Electric Charlie! 

47 March 1987: Dvorak Keyboard, 

Multi-AUTORUN 

48 April 1987: —Designer Labels, Taxman 

49 May 1987: 5th Anniversary—A-Rogue, Poker 

Slot Machine 

50 June 1987: Animation—Verbot Commander, 

Citadel 

51 July 1987: Print Anything—Ghost Writer, 

Your Net Worth 

52 August 1987: Atari Muscle—Sideways 

Spreadsheet, Diamond Dave 

53 September 1987: Work/Play—Mighty Mailer, 

Maximillian B. 

54 October 1987: Football Predictor—Antic 

Prompter (8-bit/ST), Spelling Checker 

55 November 1987: Practical Applications— 

Critical-Path Projects, WYSIWYG Cassettes 
5 6 December 1987 : Print Holiday — R S. Envelope 

Maker, Antic Publisher 






DISK BONUS 


MANDALA MOVIES 

Kaleidoscope Construction Set. By Mike McFarlane 


M andala Movies, this 
month’s Super Disk 
Bonus, is an addic- 
tively creative kaleido¬ 
scope construction set. Using sim¬ 
ple keyboard and joystick com¬ 
mands, you can effortlessly create an 
infinite number of fascinating de¬ 
signs that flow hypnotically in ever- 
varying patterns. 

The fascinated Antic editorial 
staff had a great time testing the pos¬ 
sibilities of Mandala Movies setting 
kaliedoscope patterns flowing 
across the monitors at unoccupied 
workstations for hours at a time. 
One Antic art department staffer 
was enthusiastic about using the 
vivid colors and striking patterns of 
Mandala Movies to design quilts or 
embroidery patterns. You can’t save 
or print designs, but you can freeze 
the screen image and photograph it. 

Mandala Movies is programmed 
entirely in speedy (but hard-to-type) 
machine language. Author Mike 
McFarlane did an excellent job with 



this highly artistic program. But, for 
reasons that would take too long to 
explain here, unfortunately Antic 
does not have McFarlane’s current 
address. We believe he lives in the 
Eugene, Oregon area and we’d love 
to hear from him, or from anyone 
who knows where to find him, so 
we can send Mike’s author fee. 

USING THE PROGRAM 

Use DOS command O to copy the 
MANDALA.EXE file to another disk 
that includes the DOS.SYS file. Don't 
attempt to run Mandala Movies 
directly from the monthly Antic 
Disk. Use DOS command E to re¬ 
name MANDALA.EXE to AUTO¬ 
RUN.SYS. Turn off your computer 
and remove all cartridges. Place the 
disk in drive 1. If you’re using an XL 
or XE, hold down the [OPTION] key 
while you turn on your computer. 
Mandala Movies will load and run 
automatically. 

After a short demonstration run, 
you can start experimenting with 
Mandala Movies. Follow the on¬ 
screen prompts for instructions. 
With just a few keystrokes and a 
nudge of the joystick you can pro¬ 
duce striking kaleidoscope patterns 
that will amaze your friends. 

Mandala Movies operates in GTLA 
mode 10, letting you work with 
eight colors in your design, plus one 
color for the background. In Color 
Selection mode you can adjust the 
colors to your liking, and even watch 



your current pattern change while 
you experiment with new colors. 
After you have an image you like, 
you can start it scrolling across the 
screen in several patterns for an en¬ 
tertaining visual display. 

Your February 1989 Antic Disk— 
featuring Mandala Movies as well as 
every type-in program from this 
issue—will be shipped to you within 
24 hours after receiving your order. 
Just phone Toll-Free to the Antic 
Disk Desk at (800) 234-7001. The 
monthly disk is only $5-95 (plus $2 
for shipping and handling) on your 
Visa or MasterCard. Or mail a $3 95 
check (plus $2 shipping and han¬ 
dling) to Antic Disk Desk, 544 Sec¬ 
ond Street, San Francisco, CA 94107. 

Programmers: Antic wants to see 
your most ambitious programs, even 
those too large or complex for print¬ 
ing as a type-in listing. High-quality 
programs in any language that has 
a runtime version are now eligible 
for consideration as a Super Disk 
Bonus. A 
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ONLINE 


Ultimate Atari reference tool goes online. 

Antic Index 

By Charles Jackson, Antic Technical and Online Editor 



3rd Annual 


I ntroducing the Antic Index, 
newest addition to ANTIC 
ONLINE and Compu¬ 
Serve. The Antic Index 
is the most comprehensive 
guide to back issues of 
Antic and START If the 
Antic Index was 
published as a book, 
it would contain 
more than 8,500 
pages of product re¬ 
views, new prod- 
uct announce¬ 
ments, I/O letters, 
programming tutor¬ 
ials, feature articles 
and news bulletins. 

Need Atari in¬ 
formation fast? It’s all 
just seconds away. Find it 
in the Antic Index, the larg¬ 
est, fastest electronic guide to 
information about your Atari. And 
best of all, there’s no extra fee. 
You pay only standard CompuServe 
connect charges. There’s never any 
extra fees or surcharges for using the 
Antic Index. Just type GO ANTIC and 
select menu choice 10, The Antic 
Index. 

The Antic Index is primarily an 
electronically searchable database 
covering every article ever published 
in Antic, from the 1982 first issue till 
the beginning of 1989 —plus most 
articles from START. But the Index is 
also a library as well as a database. So 


Antic Awards 

For Atari Achievement 


Featuring (8-bit): 

Printer Spooler 


-. NIW Reviews 

(8-bit/ST) Including: 

WordPerfect ST 


far, you 
can actually 
download some 
20% of the com- 
plete Antic articles, 
%+ perhaps half of the com¬ 
plete START text, and 
many original major features from 
ANTIC ONLINE such as Tim Oren’s 
Professional GEM columns and Chris 
Crawford’s Assembly Language tu¬ 
torials. 

The Antic Index, currently at the 
seven megabyte mark, is an ongoing 
project of ANTIC ONLINE. Every 
week we’ll be adding more and more 
information from old and new issues 
of START and Antic. The Antic Index 
is an all-text reference service, so it 


cannot contain any pho¬ 
tographs, diagrams, adver¬ 
tisements or program list¬ 
ings. If you need to see a 
diagram or use a program, 
you can order $3 back 
magazines or #5 back 
disks from the Antic Disk 
Desk. Just phone (800) 
234-7001 with your Visa 
or Mastercard order, or see 
the ad in this magazine for 
details on a magazine/disk 
back issue special offer. 

If you ever needed a 
clear programming tu¬ 
torial, a helpful product 
review, or just a fun game 
from Antic or START back issues, 
there used to be only one way to find 
it. Slide out your box of old maga¬ 
zines, start with the most likely- 
looking issue, search through each 
page. If you never missed or lost an 
issue and if you know exactly what 
you’re looking for, you’ll probably 
find the information you need. You’ll 
also be quite a bit older than when 
you started. 

Now there’s an easier way. In a few 
seconds, the Antic Index can find 
your article, right down to the page 
number. In many cases, the index also 
contains the complete text of the ar¬ 
ticle. Just “capture” the information 
you need. There’s nothing simpler or 
faster. Let the Antic Index be your first 
stop when you need Atari information 
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fast. It’ll probably be the only stop 
you need. 

ELEVEN WAYS TO SEARCH 

If you ever used a card catalog to 
find a library book, you’ll have very 
little trouble using the Antic Index. A 
typical card catalog offers two ways 
to find a book—by author and by sub¬ 
ject. The Antic Index gives you eleven 
ways to find an article. You can search 
by: 

1 Author’s Name 

2 Month of Publication 

3 Year of Publication 

4 Subject 

5 *See a List of 
Subjects/Search* 

6 Department 

7 *See a List of 
Departments/Search * 

8 Programming Language 

9 Program Name 

10 Article Title 

11 Magazine Title 

Use the Author’s Name option to 


Use the Subject option to find all 
articles written by about a particular 
subject, such as Printers, Desktop 
Publishing and Business. If you need 
more help, use the *See a List of 
Subjects/Search * option to display 
a list of more than three dozen com¬ 
monly used subject headings. 

Use the Department option to 
find all articles written for a particu¬ 
lar subject, such as New Products, ST 
Section, and Features. Again, if you 
need more help, use the * See a List 
of Departments/Search* option to 
display a list of commonly used 
department headings. 

The Program Name and Pro¬ 
gramming Language options only 
search through articles which contain 
program listings. For example, you 
could search by Program Name to 
learn when Antic ran the 
STRETCH.ACT program. Use the 
Programming Language option 
when you know what language the 
program was written in. This option, 
for example, could find every AC- 


If the Antic Index was published 
as a book, it would contain 
more than 8,500 pages. 


find all articles written by a particu¬ 
lar author. For example, if you wanted 
to know when Russ Wetmore wrote 
those articles about the 1030 modem, 
you would search by Author’s Name 
for WETMORE. The index software 
searches through its database and 
compiles a list of every article writ¬ 
ten by WETMORE. This list is called 
a selection set. Once a selection set is 
created, it’s put into a menu and dis¬ 
played onscreen. Now, just type in the 
number of the article you want to see. 

The Month and Year of Publica¬ 
tion options let you restrict your 
searches to a specified date. 


TION! program Antic has printed. 
Just remember that the Antic Index is 
an all-text service and cannot contain 
program listings, only the accom¬ 
panying articles. 

The Article Title option finds an 
article by its title. If you entered “on¬ 
line,” the Index would find every ar¬ 
ticle which has the word “online” 
anywhere in its title. 

SEARCH STRATEGIES 

The Magazine Title option lets 
you restrict your searches to Antic 
Magazine, START Magazine, or ANTIC 
ONLINE. 


Even if you don’t remember the ex¬ 
act title of the article, or even how to 
spell the author’s name, the Antic 
Index can still help. For example, if 
you needed Lawrence Dziegielewski’s 
“Disk Drive Survey,” but couldn’t 
remember how to spell Dziegielewski, 
you could search by Author’s Name 
for any part of the name you could 
spell. Searches for “Dz” or “ski” 
would find the article almost as 
quickly as a search for Dziegielewski. 

Of course, you could have found 
the same article by searching by Sub¬ 
ject for “Review” or searching by Ar¬ 
ticle Title for “Disk.” 

In most cases you don’t need to 
type-in the entire search term. A few 
well-chosen keywords will do. Imag¬ 
ine you’re looking for an article titled: 
“3-D Fractals: Three-dimensional ST 
landscapes.” 

But you could only remember that 
the article had the word “fractal” in 
it. No problem. Select choice 10, 
Article Title from the SEARCH BY 
menu, and type the word “fractal” at 
the “Enter Article Title:” prompt. 
Here’s what you’ll see: 

Enter Article Title: fractal 

6 articles selected 

ANTIC ONLINE ABSTRACTS 

1 Faster Fractals 

2 Fractals For Your Atari 

3 Fractal Zoom 

4 3-D Fractals: Three dimension 

5 Fractal Congratulations 

6 Ballblazer & Rescue On Fractal 

Enter choice ! 

The index creates a menu listing ev¬ 
ery article which has the word “frac¬ 
tal” in its title. The “3-D Fractals: 
Three Dimensional ST Landscapes” 
article is choice #4. 

Type a 4 at the “Enter choice !” 
prompt, for complete bibliographic 
information about the article— 
including author, which issue it ap¬ 
peared in, the page number, and 
whether there are any type-in listings. 
If the complete text of the article has 
already been uploaded, it will appear 
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when you press [RETURN]. Other¬ 
wise, that [RETURN] will take you 
back to the SEARCH BY menu. 

COMBINING TERMS 

Sometimes the categories you select 
will be too broad. For example, 
searching for New Products would 
produce a selection set with more 
than 450 articles! 

Whenever your selection set has 
more than 50 articles, you can add an¬ 
other search method. This is called 
“narrowing” your search. Here’s what 
the screen would look like at this 
point in your New Products choice: 


3 i list or jesjeas/seortn* 

l lewrtneit 

7 *$M 1 List of 

1 Pm* Mil) 

I Prop* Dm 

II irticlt Titlr 
li ItojaziM Title 

Eater (tout 111 


Eater Article Title: 88$ Excess 

CiwSero 

881-1783 

(1711) 

88$ Ejjress! 

MTIC, HI m 
llwiiws, Saline) 


1 ? liw.C 


Press (CD for nere !| 



Bl_ •" • .*• .* F? .** ? 


The Index is 
a library and 
a database. 


Enter Department: New Products 
455 articles selected 
The Index has found 455 articles 
containing new product announce¬ 
ments. If you can remember anything 
else about the article, such as the year 
it was published, you can eliminate 
the articles published in other years. 

For example, if you know that the 
new product announcement was 
published in 1985, you’d narrow your 
search by eliminating all other years. 
This time, the Index will only search 
through the 455 “New Products” ar¬ 
ticles it found during its last search. 
It will not search through every arti¬ 


cle in the database. Here’s what you’d 
see: 

SELECT YEAR PUBLISHED: 

1 1982 

2 1983 

3 1984 

4 1985 

5 1986 

6 1987 

7 1988 

8 1989 

Enter choice !4 

77 articles selected 

From the 455 New Product articles, 
the index has selected the 77 which 
were published in 1985. From here, 
you can continue to narrow your 
search, start a new search, or display 
a menu of the selected articles. 

SEARCH TIPS 

When combining several search 
methods, it’s usually easiest to start 
with the method that will produce 
the largest selection set, and narrow 
from there. 

Since you may only “narrow” a 
selection set having more than 50 
members, try to start your search with 
the method most likely to find at least 
50 articles. The following examples 
illustrate this strategy. 

SAMPLE TASK: Find all the articles 
written by Tim Oren in 1985. 

Strategy #1: If we begin by search¬ 
ing Author’s Name for Oren, the in¬ 
dex finds only 26 articles. Since we 
need more than 50 articles to use the 
“narrow” function, we must examine 
the publication date of each article, 
until we’ve found those published in 
1985. Strategy #2: If we begin by 
searching Year of Publication for 
1985, the index finds more than 250 
articles. From here, we narrow the 
selection set by searching Author’s 
Name for “Oren.” Almost immedi¬ 
ately, the six Tim Oren articles from 
1985 appear. A 


Antic Technical and Online Editor 
Charles Jackson designed and put to¬ 
gether the Antic Index and ANTIC 
ONLINE. 
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Lyco Computer 

Marketing & Consultants 


Air orders processed within 24 hours. 



Lyco Means Total Service. 


Mark “Mac” Bowser, Sales Manager 


MAGNAVOX 

CM-8502 

• Composite 
Color 

• Green Text 
Switch 

• Speaker 


• Suggested 
Use 130 XE 


INDUS 


$179 95 


ATARI HARD DISK 

Super Speed 
Super Performance 

• 20 Megabyte Drive 

• Improves ST A/N Q5 

Performance 

• Includes Hard Disk r 



AATARF 


I would personally like to thank all of our past customers for helping to make 
Lyco Computer one of the largest mail order companies and a leader in the 
industry. Also, I would like to extend my personal invitation to all computer en¬ 
thusiasts who have not experienced the services that we provide. Please call 
our trained sales staff at our toll-free number to inquire about our diverse 
product line and weekly specials. 

First and foremost our philosophy is to keep abreast of the changing market 
so that we can provide you with not only factory-fresh merchandise but also 
the newest models offered by the manufacturers at the absolute best possible 
prices. We offer the widest selection of computer hardware, software and ac¬ 
cessories. 

Feel free to call Lyco if you want to know more about a particular item. I can’t 
stress enough that our toll-free number is not just for orders. Many companies 
have a toll-free number for ordering, but if you just want to ask a question 
about a product, you have to make a toll call. Not at Lyco. Our trained sales 
staff is knowledgable about all the products we stock and is happy to answer 
any questions you may have. We will do our best to make sure that the 
product you select will fit your application. We also have Saturday hours - one 
more reason to call us for all your computer needs. 

Once you’ve placed your order with Lyco, we don’t forget about you. Our 
friendly, professional customer service representatives will find answers to 
your questions about the status of an order, warranties, product availability, or 
prices. 

Lyco Computer stocks a multimillion dollar inventory of factory-fresh merchan¬ 
dise. Chances are we have exactly what you want right in our warehouse. And 
that means you’ll get it fast. In fact, orders are normally shipped within 24 
hours. Free shipping on prepaid orders over $50, and there is no deposit re¬ 
quired on C.O.D. orders. Air freight or UPS Blue/Red Label shipping is availa¬ 
ble, too. And all products carry the full manufacturer’s warranties. 

I can’t see why anyone would shop anywhere else. Selection from our huge 
inventory, best price, service that can’t be beat — we've got it all here at Lyco 
Computer 

TO ORDER, CALL TOLL-FREE: 1-800-233-8760 
New PA Wats: 1-800-233-8760 

Outside Continental US Call: 1-717-494-1030 


Hours: Monday througn Friday, 9:00 a.m. to 9:00 p.m. 
Saturday, 10:00 a.m. to 6:00 p.m. 



For Customer Service, call 1-717-494-1670, 
9AM to 5PM, Mon. - Fri. 

Or write: Lyco Computer, Inc. 

P.O. Box 5088, Jersey Shore, PA 17740 



PLEASE NOTE: • full manufacturers’ warranties • no sales tax 
outside PA • prices show 4% cash discount; add 4% for credit cards • 
APO, FPO, international; add $5 plus 3% for priority • 4-week clearance 
on non-certified checks • we check for credit card theft • sorry, com¬ 
patibility not guaranteed • return authorization required • due to new 
product guarantee, return restrictions apply • price/availability subject to 
change • prepaid orders under $50 in Continental US, add $3.00. 


1 - 800 - 233 - 


GTS-1OO 

• Atari ST 
Drive 

• 3.5” DSDD 




Cartridge Software 

3 for $9.95 

CALL FOR 
TITLES! 


SupraModem 

2400 



• fully compatible 
with industry- 
standard, intelligent 
‘AT” commands 

• Compact size 

• 1-vear warranty 


$12995 




Headstart 


COLOR SYSTEM 

• plug in and use im¬ 
mediately 

• IBM-XTcompatible 

• 2-360K Drives 

• Free 1-year limited 
warranty 


$969* 



• Hi Res color monitor included! 


8760 ^ 

























































€ 


=L 


NX1000 



Panasonic, 

Office Automation^^tt 

1080i Model II 


OKIDATA 

Okimate 20 


$169 


95 


* w/cable purchase 
144 Cps Draft 
36 Cps NLQ 
EZ Soft Touch Selection 
Paper Parking 

Epson Std. & IBM Proprinter 
|| C^mnatible 




$149 


95’ 


i 150 Cps Draft 
> Friction & Tractor Feed Std. 
' Bidirectional & Logic 
Seeking 

» NLQ in all Pitches 
*Quantities limited 


• Color Printer 

• 80 cps Draft 

• 40 cps NLQ 


$129 


95 


NX-1000 . 

.... $169.95* 

1080i Model II . 

.$149.95* 



NX-15 . 

. $289.95 

1091 i Model II . 

.$195.95* 

Okimate 20. 

... $129.95 

NX-1000 Color . 

. $225.95 

1092i. 

. $309.95 

Okimate 20 w/cart .. 

... $189.95 

1592. 

. $375.95 

NR-15 . 

. $419.95 

180. 

... $219.95 

1595. 

. $439.95 

182 

(Torvn oc 

NB-15 24 Pin. 

. $669.95 

1124. 

. $319.95 

182 + . 

... $225.95 

NX-2400 . 

. $309.95 

NB24-10 24 Pin .... 

. $369.95 

*quantities limited 

183. 

... $239.95 


PRINTERS 


Citizen 

120 D. 

. $144.95 

180 D. 

. $159.95 

MSP-40 . 

. $279.95 

MSP-15E . 

. $309.95 

MSP-50 . 

. $369.95 

MSP-45 . 

. $349.95 

MSP-55 . 

. $469.95 


Selkosha 


SP 1200AS RS232 ... $179.95 

SL 80Ai. $329.95 

MP5420FA . $999.95 

SP Series Ribbon. $7.95 

SK3000 Ai . $349.95 

SK3005 Ai . $445.95 

SPB 10 . $CALL 

SL 130Ai. $599.95 

SP 1600Ai . $CALL 



Attention 

Educational 

Institutions: 

if you are not currently using 
our educational service 
program, please call our 
representatives for details. 


Epson 

LX800 . $184.95 

FX850 . $339.95 

FX1050 . $499.95 

EX800 . $434.95 

LQ500 . $339.95 

GQ3500 . $LOW 

LQ850 . $525.95 

LQ1050 . $749.95 

INTERFACING AVAILABLE 


Brother 

Ml 109 . $189.95 

Ml509 . $335.95 

Ml709 . $439.95 

Twinwriter 6 Dot & 

Daisy . $899.95 




Access: 

Triple Pack . $11.95 

Leader Board Double 

Pack . $9.99 

Activision: 

Music Studio. $19.95 

Great American Road 
Race . $9.99 

Broderbund: 

Print Shop .$26.95 

Graphic Lib. 1,11 or IlL.ea. $14.95 

Electronic Arts: 

Pinball Con. Set . $8.95 

One on One . $8.95 

Lords of Conquest. $8.95 

Super Boulderdash . $8.95 

Music Construction 

Set . $8.95 


Access: 

10th Frame. $22.95 

Activision: 

Music Studio. $27.95 

Broderbund: 

Superbike Challenge .. 

Typhoon Thompson ... 
Electronic Arts: 

Hunt for Red October . 
Awesome Arcade Pack 


$11.95 
$21.95 


. $32.95 


Epyx: 

Dive Bomber . 

Impossible Mission 2 ... 
Winter Games . 

Firebird: 


. $30.95 


Universal Military 
Simulator . 


Microleague: 

Microleague Baseball 

Micro. Wrestling . 

Microprose: 

F-15 Strike Eagle . 

Gunship .. 

Mlndscape: 

Road Runner.. 

Indiana Jones and the 
Temple of Doom . 

Origin: 

Autoduel . $24.95 

Ultima IV. $34.95 

Strategic Simulations: 

Questron II . $32.95 

Heroes of the Lance ... $25.95 


$33.95 

$25.95 


$24.95 

$28.95 


$27.95 

$27.95 


Magnavox: 


Interfacing: 


Printer 


5-1/4 


Diskettes 


A 

Disk Notcher. 

. $5.95 

Generic: 


Bonus: 


Maxell: 

SSDD . 


DSDD . 

.. $4.95 

SSDD 

$10 95 

. $7.95 

Verbatim: 


DSDD . 

. $13.95 

DSDD . 

. $8.95 

SSDD . 

.. $8.99 

Verbatim: 


Bonus: 


DSDD . 

$11.50 

SSDD . 

. $12.95 

SSDD . 

. $5.95 

3.5 


DSDD . 

. $18.95 

DSDD . 

. $6.95 


SKC: 

SSDD . 


SKC: 


Maxell: 

SSDD . 

$11.50 

. $9.95 

DSDD . 

$6 95 

DSDD . 

. $13.99 

DSHD . 

... $13.95 

DSDD . 

$17.95 




DEALER 

INQUIRIES 

INVITED 


Winner 909 . $24.95 

Wico IBM/AP . $29.95 

Lipstick Plus . $14.95 

Kraft KC III Ap/PC. $16.95 

Kraft PC Joystick 

Card. $27.95 

Kraft Maze Master. $8.95 

I Controller.$13.95 

Epyx 500 XJ . $13.95 


.. $79.95 

Avatex: 

1200e . 

. $65 95 

.. $79.95 

1200i PC Card .... 

. $65.95 

$ 170.95 

1200p . 

. $89.95 


1200hc Modem ... 

. $89.95 


2400. 

. $149.95 

. $39.95 

. $39.95 

. $62.95 

Supra: 


300 . 

....$ 119 . 95 * 

. $39.95 

1200 . 

....$ 119 . 95 * 

2400 . 

....$ 129.95 

1 

limited quantities 


Avatex 

2400 

Modem 

$149 95 



QVS-10 5i/4 . $3.95 

QVS-75 5Vi . $10.95 

QVS-40 31/2 . $9.95 



Join the thousands who shop Lyco and Save 












































































































































I\ f)e-ln Software 


GAME OF THE MONTH 


Roulette, Atari Style 

You won’t lose your shirt to the 8-bit croupier. By Michael Pemberton 



W hy buy a roulette table when 
your Atari can be a champ¬ 
ionship casino croupier? This BASIC 
program works on 8-bit Atari com¬ 
puters with at least 48K memory, 
disk or cassette. 


My luck in casinos has been con¬ 
sistently poor. I figured that the best 
way to survive an upcoming trip to 
Vegas would be to practice the games 
I was most interested in—craps, black¬ 
jack and roulette. 

Now, I own some dice and some 
cards, but I don’t know anyone with 
a roulette table stashed away in the ga¬ 
rage. Undaunted, I rolled up my 
sleeves, put on my shaded visor and 
wrote a program to play Roulette on 


my Atari 800. 

GETTING STARTED 

Type in Listing 1, ROULETTE.BAS, 
check it with TYPO II and SAVE a 
copy before you RUN it. 

If you have trouble typing the spe¬ 
cial characters in lines 140-144, don’t 
type them in. Instead, type Listing 2, 
check it with TYPO II and SAVE a 
copy. When you RUN Listing 2, it cre¬ 
ates these hard-to-type lines and stores 


them in a file called LINES.LST. To 
merge the two programs, disk users 
LOAD ‘ ‘D: ROULETTE. BAS and then 
ENTER “D:LINES.LST.” Cassette users: 
CLOAD Listing 1, then insert the 
separate cassette used for Listing 2 
and ENTER “C:”. Remember to SAVE 
the completed program before you 
RUN it. 

When you RUN Roulette, the titles 
will appear and the screen will go 
blank for about 10 seconds while the 
program draws the gameboard, color¬ 
ing the “red” numbers with 
Player/Missile graphics. When the 
screen turns on again, the Roulette 
board will appear with the cursor in 
the upper left-hand corner. 

With a joystick in Port 1, you can 
move the cursor to any position on 
the board and place bets. Pressing 
the joystick button puts a chip at 
the cursor position. A buzzer will 
sound if you try to place a bet on an 
illegal spot. 

You’ll be asked to verify the bet 
and say how much money you want 
to wager. You can risk any amount on 
a single bet, as long as you don’t ex¬ 
ceed the amount of cash you have on 
hand. Betting $0 counts as no bet, and 
your chip will be removed from the 
board. To increase the amount of a 
bet, just put a second bet in the same 
area of the board and the software 
will add it in. 

Once you place all your bets, press 
[START] to spin the wheel. The spin- 
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ning numbers will appear below the 
betting board and will go through the 
whole sequence at least twice before 
settling on a winning number. 

When that winning number comes 
up, the computer will determine your 
winnings, if any, listing each success¬ 
ful bet with the amount of money it’s 
won for you. If you go broke, the 
computer will let you start over. To 
bet again, just press [RETURN]. That’s 
all there is to it. 

BETTING ON ROULETTE 

Now all you have to do is learn the 
authorized roulette bets. 


(for example, 7, 8, 10, 11). Put your 
chip at the point where they all meet. 
Pays 8 to 1. 

5. Line bets (5): you bet on the five 
numbers 0, 00, 1, 2, 3. Put your chip 
at the top or bottom of the line that 
connects these five numbers. Pays 

6 to 1. 

6. Line bets (6): you bet on the six 
numbers that border one of the 11 
vertical lines on the board (for exam¬ 
ple, 13 through 18). Put your chip at 
the top or bottom of the line you’re 
betting on. Pays 5 to 1. 

7. Column bets: you bet on the 12 
numbers in one of the three horizon¬ 


There are 11 

different kinds of bets in 
Roulette. This may sound complex, 
but the system is actually 
very easy to learn. 


There are 11 different kinds of bets 
in Roulette. This may sound complex, 
but the system is actually very easy to 
learn, and you place bets with this 
program exactly as you would if you 
were in a real casino. Here is how the 
bets work: 

1. Straight bets: you bet on any 
single number. Put your chip right 
inside that number’s square. Pays 35 

to 1. 

2. Split bets: you bet on any two ad¬ 
joining numbers (0 and 00 adjoin only 
each other). Put your chip on the line 
between the two numbers. Pays 17 

to 1. 

3. Street bets: you bet on any three 
numbers in a vertical line. Put your 
chip on the outside edge of the board 
(top or bottom) where the “street” 
ends. Pays 11 to 1. 

4. Square bets: you bet any four 
numbers grouped together in a square 


tal ranks across the board. Put your 
chip on the right-hand edge of the 
column you’re betting on. Pays 2 to 1. 

8. Dozen bets: you bet on either the 
first, second or third dozen numbers 
on the wheel. All dozens lose on 0 or 
00. Put your chip inside the 1ST 
DOZEN, 2ND DOZEN or 3RD 
DOZEN box. Pays 2 to 1. 

9. High/Low bets: you bet on either 
1 to 18, or 19 to 36. All high/low bets 
lose on 0 or 00. Place your chip in 
either the 1-18 box or the 19-36 box 
respectively. Pays even money. 

10. Odd/Even bets: you bet on 
whether the winning number will be 
odd or even. All odd/even bets lose 
on 0 or 00. Put your chip in the ODD 
or EVEN box. Pays even money. 

11. Black/Red bets: same as 
Odd/Even, except you put your chip 
in the BLACK or RED box. Pays even 
money. 


I have yet to find any betting 
strategy that wins consistently (no 
surprise there!), but I’ll keep trying. 
Maybe you’ll do better. 

PROGRAM TAKE-APART 

The key to this Roulette program 
lies in the configuration of BET$, 
which identifies the kind of bet be¬ 
ing made. The ATASCII value of each 
character in BET$ specifies a certain 
type of bet—1-38 are the straight bets, 
39 is a line bet (5), 40-97 are the split 
bets, etc. The program notes the cur¬ 
sor’s horizontal and vertical position 
when a bet is made, uses them to 
identify a corresponding character in 
BET$, translates this character into a 
numerical value with the ASC func¬ 
tion and then decodes and records 
the bet in the appropriate variable. 

The wheel is spun via the RND 
function, and it will go through two 
to five complete rotations before stop¬ 
ping on a number. The starting posi¬ 
tion for successive spins is the num¬ 
ber which has just won. (This 
happens in Las Vegas roulette too.) 

Finding out which bets (if any) have 
won is simple. The possible winning 
numbers are determined for each bet, 
and if one matches the actual winning 
number, the original amount bet is au¬ 
tomatically returned to your stake and 
the winnings are calculated. 

10-310 Game Setup 
900-1070 Cursor Movement 
1075-1160 Interpret Bet Type 
1190-1630 Record Bets and 
Amounts 

2000-2040 Spin the Wheel 
3000-3530 Display Winnings 
4100-4520 Bet and Gameboard 
Subroutines 

5000-5060 Gameboard Configu¬ 
ration 

6000-6120 BET$ Character Codes 
6130-6140 Roulette Wheel 

Numbers A 


Michael Pemberton is working on a PhD. 
in English at the University of Califor¬ 
nia, San Diego. 

Listing on page 26 
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Digitizer Special 


IBM Emulation Special 


ST ACCESSORIES 


Disk Drives 


MODEM SPECIAL 


MIDI Synth Special 


Modem Packag ^ 

Avatex 1200 HC • P.R. Connec¬ 
tion • 850 Express Software • 

cob/ e if?? 


Mi sc. Hardware 


PR-Connection.59.95 

US Doubler.49.95 

Animation Station.59.95 

Supra 1150 Interface.CALL 

Graphic AT Interface.39.95 


Panasonic 

1080-i - II.149 

1091 i - II.185 

1092 .329 

P1124 NEW 24pin.339 

.aser Partner.1599. 


MODEMS 

Avatex 1200 E.69 

Avatex 2400 HC.155 


Supra 2400 SPECIAL.149 

SPECIAL INCLUDES : Supra 2400 modem, cable 
and Free shipping in Continental USA. 


/Accessories 

5.25" Disk Notcher.4.95 

6 Way Surge Protector14.95 

Printer Stand.5.95 

.1000 Sheets Paper.19.95 


Star 


NX-1000. 

.175 

NX-1000 Rainbow... 

.229 

NX-2400. 

.319 

^ ASER . 

... 1795/ 


8-Bit Atari Software 


Ol der Toil Free 


W/I 4 U I Oil I ftc Since. 19 X 2 | | W # lit / i Ull 1 / IT 

8()0-558-0003tomput(ftbilitg 8 o()-558-0003 


Order Toll Fret 


WI Orders & Info 414-357-8181 


^onsumetfiecttonlci 


WI Orders & Info 414-357-8181 


f XF-551 Disk Driv^ 
Double Density 

$179 


XEP-80 80 
Column Card 

4700Z 


IMG Image 
Scanner 




JOYSTICKS" 


Wico Super 3-Way.19.95 


Starfighter.8.95 

Tac3.10.95 

Tac 5.14.95 

Slick Stick.7.95 

Epyx 500XJ.12.95 

Epyx 200 XJ.9.95 


• Supra 2400 baud modem 

• ST modem cable 


Flash VI.6 Software 


CASIO HT-700 Midi 

Synthesizer and Keyboard with PCM. 




' Computer ^ 

Special 

130XE $ 299 
Computer 
With XF-551 


Package Includes 
• PC Ditto 


ST/PC 5.25" Drive 


Anti-Glare Screen.19.95 

Drive Master.44.95 

3.5 Drive Clean Kit.9.95 

6 Way Surge Protector. 14.95 
6FT SF354/314Cable. 19.95 

Monitor Master.44.95 

Mouse Master.34.95 

Mouse Pad.8.95 

Mouse House.6.95 

3.5" SS/DD Disks**.11.95 

3.5" DS/DD Disks**.15.95 


Supra 20 Meg.569 

Supra 30 Meg.649* 

Indus GTS-100.189 

3.5* 8F-314 Compatible 

IB 5.25".219 

ST Host Controller .Call 
Drive Master.44.95 


S.S.I. 

Battle of Antietam. 

.32.95 

Computer Ambush. 

Bernal Dagger.. 

.39.95 

.26.95 

Gettysburg... 

Kampfgruppe. 

.39.95 

.39.95 

Mech Brigade. 

.39.95 

Phantasle... 

.26.95 

Phantaslell. 

.26.95 

Rebel Charge Chickamauga. 
Shiloh. 

.32.95 

.26.95 

8ons of Lfoerty. 

.26.95 

U.8AA.F. 

.39.05 

War In Russia. 

.52.95 

Wargame Construction 8et . 
Warship. 

.20.95 1 

.39.95 

Wizards Crown. 

.26.95 


Electronic Arts 

Alemate RealltyiCIty. 

Alternate Reality: Dungeon 
Blsmark. 

.20.95 

.20.95 

.20.95 

Napolean In Russia. 

Tomahawk... 

.18.95 

..20.95 

Video Title 8hop. 

..20.95 

Battle of Chlckamuga . 

Rommel Tobruk. 

.23.95 

.26.95 


MICROPROSE 


Crusade In Europe. 

.25.95 

Conflict in Vietnam. 

.25.95 

Decision In the Desert. 

.25.95 

F-15 StrikB Eagle. 

.22.95 

8lent 8ervlce. 

.22.95 

Top Gunner . 

..16.95 


8tarfleot 1.33.95 

Chew rrnster 2000 . 26.95 

T 


NEW mamond OS 

18.95 


We Have Many Programs For The Atari 400/ 
800/XE/XL. If You Don't See It Here : CALL 


10 Little Robots.18.95 

1986 Team Disk For MLB.14.95 

1987 Team Disk For MLB.14.95 

Ace of Acos.18.95 

Al 8tar Roster Disk.14.95 

Apshal Trilogy.14.95 

Award Ware.10.95 

Blazing Paddles.22.95 

Bop-n- Wrestle (64k).19.95 

Boulderdash Const. Kit.12.95 

Champ. Loadmnner.19.95 

Cycle Knight.16.95 

Deeper. DngrVGauntlet.17.95 

Electronic Checkbook.14.95 

Electric Datamanager.14.95 

Fleet 8ystem 2.39.95 

Right Simulator II.33.95 

Fraction Action.18.95 

Gauntlet (64k).22.95 

General Manager for MLB..19.95 


Miscellaneous 


Guitar Wizard.18.95 

Infiltrator.19.95 

Jupiter Mlslon 1999.32.95 

Leadorboard Duo Pak.10.95 

Love Note Maker.10.95 

Mastortype.25.95 

Math Blaster.32.95 

Micro League Basebal.25.95 

MLB Box/8tat.14.95 

Networth.25.95 

Newsroom.31.95 

Print Driver Const 8et.. 18.95 

R Time 8 Cart.54.95 

Racecar Arithmetic.18.95 

8cenery Disk #11 .17.95 

8parta Dos.29.95 

8parta Tools.22.95 

8py Vs. Spy 3.12.95 

8potl It.32.95 

Spinnaker.CALL 


8p)tflra 40.. 

..23.95 

8trlp Poker. 

.. 21.95 

8uper Huoy . 

.18.95 

8ummer Games.. 

Trlppte Pak... 

.12.05 

..14.95 

Tralblazor... 

.19.05 

Universe. 

.32.95 

Word Attack. 

.32.05 

BR0DERBUND 

Graphics Library 1. 

.16.95 

Graphics Library 2. 

.16.95 

Graphics Library 3. 

Karateka. 

.16.05 

..19.05 

Print 8hop. 

. 28 95 

Print Shop Companion. 

Ultima III . 

.22.95 

...25.95 

Ultima IV .. 

.38.95 
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ST Productivity & Education Software Specials 


1st C«dd. 

.31.95 


ISO 95 

First 8 hapes. 

.20.95 

KC 8 Lewi II. 

.189.95 

Ulnlmm 

98 08 

8 hadow. 

.10.05 


.20.95 


32 os 

Rash 1.6. 

.19.95 

Keyboard Contr Sequencer. 

.149.95 

Mothor SnoM 

10 Of 


.25.95 

1st Word-Plus. 

_67.95 

Crystal. 

..... 14.95 

Flashback. 

.79.95 

Keys. 

... 48.95 

Mo use Tracks 

84 Of 

8pectrum512. 

.43.95 

220 8 T____ 

.32.95 

Cyber Control . 

39 95 

Font Pak 1 for Easy Draw. 

.25.95 

Kid Talc. 

.20.95 

Mi 14In Onnstnir.tlnn fi*t 

aa of 

8 peiler Bee. 

.20.95 

30 Developer's Dbk. 

.19.95 

Cyber Paint...». 

.44.95 

Fonts 4 BorderVP.M. 

.21.95 

Ktoderama. 

.24.95 

Music Stmlin 88 

38 95 

8 T Art Director. 

.48.95 

30 Fort Package 1 nr 2 

.... 17 95 

Cyber Sculpt »,»»«»»■»»»»„»»» 

.84.95 

Fontz. 

.22.95 

Label master Elite. 

.27.95 

NnviQatnr Thfl 

89 Of 

8 T Becker Text 8 T. 

.67.95 

3D Plotter 4 Printer Driver.... 

.17.95 

Cyber studio The 

58 95 

Forth MT. 

.32.95 

Lands of the Unicom. 

.21.95 

Noo Desk 

18 95 

8 t Doctor.. . « 

_24.95 

A-Calc Prime. 

.25.95 

Cyber Texture 

32 95 

Fraction Action. 

.24.95 

User C. 

.124.95 

P 1 E. 

1995 

8 T Replay. 

.74.96 

A-Cbirt. 

.14.95 

Cyber VCR 

49 95 

Future Design Disk. 

.19.95 

LC 8 Wanderer. 

.25.95 

PAGE 8 TREAM 

12795 

8 T 8 prite Factory.... 

.25.95 

AB - Zoo. 

.19.95 

lyUpAQAT ftT 

48 95 

0 Plus 4 -. 

.27.95 

LDW Basic 2.0. 

.54.95 

Pakitpm 

32 95 

STTak Professional. 

.18.95 

Abacus Books ... 

..CALL 

Datamaps 

17 95 

G.I. 8 .T.... 

.22.95 

LDW Power. 

.99.95 

Partner Fnnts 1 nr 2 . 

.19.95 

Super Charged EZ Draw. 

.99.95 

Adap.... 

.... 1549.95 

Datmaps li 

17 95 

Genesis. 

.49.95 

Logic Master. 

.31.95 

Partner Forms 

. 19 95 

8 uperbase Personal. 

.46.95 

Atfv. at 8 in bad. 

.31.95 

DB Man 4.0. 

... 144.95 

GFA Artist. 

.49.95 

Logistlx Jr. 

.57.95 

Partner 8 T 

32 95 

8 uperbase Pro. 

.... 179.95 

Aegis Animator.... 

.43.95 

Decimal Dungeon 

24 95 

0FA Artist. 

.49.95 

M-Cache . 

.25.95 

PC Ditto 3 0 

64 95 

8 wtftcalc 8 T. 

......48,95 

Aesop Fables.. 

.31.95 

DeQaa EHte 

38 95 

0FA Basic 2.0. 

.19.95 

M-Dbk + .... 

.25.95 

Personal Draw Art 1 

19 95 

8 yMa Porter. 

.48.95 

Al About America... 

.36.95 

Deiuxe Mintoom 

39 95 

0FA Basic 3.0. 

.64.95 

Macro Mouse. 

.22.95 

Pprunnal Mnrwy Mqt 

39 95 

8 ympte Trac. 

.... 414.95 

Animal Kingdom. 

.24.95 

Desk Cart 

68 95 

0FA Book 3.0. 

.19.95 

Magical Myths. 

.31.95 

PHASar . 

.58.95 

8 ync Trac. 

....269.95 

Animator, The. 

.25.95 

Desk Top Publisher 

89 95 

QFA Companion. 

.32.95 

Major Motion. 

.25.95 

PnwerpJan 

49 95 

Technical Draw Art 1. 

.19.95 

Arabian fights_ 

. 31.95 

MaiAotinn Qnnhirm 

55 Of 

QFA Compiler. 

.38.95 

Make It Move ..-.. 

. 48.95 

PrtntmaVftr p|us 

94 95 

Tempua . 

. 32.95 

Architecural Design Disk - 

. 19.95 

People, Places, Things 8 raphics 25.95 

QFA Draft'+ . 

. 99.95 

Maps and Legends . 

. 22.95 

Pro Drum . 

.19.95 

Textpro _ _ 

.32.95 

Art and Film Director. 

.48.95 

Symbols & 8 toQans Graphics 

25 95 

QFA Object. 

.67.95 

Mark Wiliams C . 

.114.95 

Prn Midi 

10 Of 

Thunder . 

. 26.95 

Art Gallery 1 ,2, or 3 . 

.18.95 

DlgFPmm 

24 95 

QFA Vector . 

. 32.95 

Mark Wiliams C 8 D . 

. 43.95 

Pm Snimri 

10 Of 

Time Bandits . 

. 25.95 

Assompro . 

. 39.95 

Draftx . 

...114.95 

QhostV Qrammers . 

. 31.95 

Master Cad . 

. 124.95 

Pro 8 ound Designs . 

. 84.95 

Time Link . 

. 33.95 

Athena II . 

.67.95 

Draftx Large Data Plotter 

87 95 

Gin Patch ... 

. 104.95 

Master Plan . 

. 58.95 

QMI BB 8 8 T 

31 Of 

Trimbase . 

. 84.95 

Award Maker . 

.24.95 

Draw Art Pro 

49 95 

Hard Disk Backup .. 

_25.95 

Master Tracks Pro. 

. 219.95 

Quick! ran 

22 95 

Tune Up . 

. 32.95 

BackPak .. 

.64.95 

[)^k Tp Put* 1 Ih/Faqy Draw 

64 95 

Human Design Disk . 

. 19.95 

Math Tal( . 

. 20.95 

Road A Rhyme 

94 Of 

Tunesmith . 

. 87.95 

Base Two . 

39 95 

Dyna Cad 

449 95 

Hyper Switch .... 

. 19.95 

Math Talk Fractions . 

.20.95 

Read-A-Rama 

.. 31 95 

Turbo 8 T . 

. 32.95 

BB 8 2.0 . 

.49.95 

Easy Score 

67 95 

IB Copy . 

. 21.95 

Math Wizard . 

. 24.95 

Raaltbpr 

150 95 

Utlty Plus . 

. 39.95 

CAD-3D 

. 1995 

Easy Tools 

32 95 

IB Disk Utility . 

. 21.95 

Mavis Beacon Typing . 

. 32.95 

Regent Rase 1 1 

79 Of 

Video Key . 

. 64.95 

Calendar . 

.19.95 

FtoctTO Calendar 

....35 95 

IB Hard Disk BackUp . 

. 21.95 

Micro Cookbook . 

.32.95 

Regent Word II 

46 95 

Video Titling Design . 

. 19.95 

Cartoon Design 

19 95 

EZ Score Plus 

104 95 

Informer, The . 

. 67.95 

Micro Lawyer . 

.39.95 


32 95 

VIP Professional . 

. 64.95 

PortaihJifn M.ikpr 

25 95 

Fast 

31 95 

Interlink . 

. 24.95 

Mlcrobot Design Dbk . 

.19.95 

Roland D/110 . 

. 74.95 

Word Perfect .. 

.... 134.95 

Chart Pak 8 t 

32 95 

Hnanclal Plus 

11495 

Invasion . 

. 19.95 

Midi Maze . 

.25.95 

Rran Art 

32 05 

Word-Up . 

. 48.95 

Clrcul Maker ... 

. 67.95 

Fingers .. 

.34.95 

Juggler Utility. 

.32.95 

Mighty Mall. 

. 32.95 

8 core Writer . 

.25.95 

Wordwriter 8T . 

. 48.95 


NEW LOWER PRICES 


ST Recreation Software Specials 


’86 TeamK For MLBB. 

.18.95 

Carrier Command. 

.29.95 

Gunship. 

... 32.95 

Metrocross. 

.13.95 

RPV 

24 95 


3D Break-Thru. 

.25.95 

Centerfold 8 quares.. 

.CALL 

Harrier Combat Simulator. 

...32.95 

Metropolis 2000 st. 

.22.95 

Rijfatcnm AIBanno 

.*5 Tangkwood. 

.25.95 

Anadamu 

74 Of 

Champ Wresting. 

.12.95 

Hero's of the Lance. 

...25.95 

Micro League Baseball II. 

.39.95 

ft n i 

.Techno Cop. 

.28.95 

Advanced D4D Heros of the Lance 28.95 

Chess master 2000 .. 

.28.95 

Hole In One Miniature Golf- 

...18.95 

Moebius. 

.24.95 

8 crabble.. 

.^ Temple Apshal Trilogy. 

.12.95 

Aktal. 

.24.95 

Chronoquest. 

.32.95 

Hoi^wood Poker. 

...18.95 

MONOPOLY. 

.25.95 

8 crupbs. 

. Temple of Doom. 

.32.95 

Airbal Construction Kit. 

A loon 

.17.95 

...25.95 

Corruption. 

Cosmic Relief. 

.29.95 

.23.95 

Hunt tor Red October. 

Hyperdome. 

...33.95 

...22.95 

Mortvkb Manor. 

Murder on the Atlantic.. 

.22.95 

.25.95 

8 entry. 

.Test Drive. 

.24.95 

Alen Rres. 

.26.95 

Crystal. 

.14.95 

1 Lucfcrous. 

...21.95 

Night on the Town. 

.22.95 

StodowQste ...... 

ft font tfo Mnnn 

. ^ Tetra Quest. 

.25.95 

Al Aboard. 

.15.95 

Cyber Complex. 

..18.95 

Ikari Warrior. 

...25.95 

Obllterator. 

.25.95 

8 huttle 2 . 

9f Of ™ ree . 

.32.95 

Atemate Reality ... 

.25.95 

Dark Castle. 

.29.95 

Impossible Mbs II. 

...28.95 

Olds. 

.21.95 


. Z-Z. Time And Magic NEW. 

.26.95 

Android Decision. 

.22.95 

Death 8 word. 

.12.95 

Indoor 8 ports.. 

... 32.95 

Omega Run. 

.25.95 

ftlphooH 

. ZyZ. T1m8 fc ™ 118 . 

.25.95 

Annals of Rome. 

.22.95 

Defender ol Crown. 

.32.95 

International 8 occer... 

... 25.95 

Operation Wol. 

.25.95 

8 fobad 

. f 2 M Jovkm . 

.25.95 

Apshal Trilogy. 

.14.95 

Deja Vu. 

.32.95 

Into the Eagle's Nest... 

... 25.95 

Outrun. 

.32.95 

sty Blaster 

.Tower Toppter. 

.28.95 

Aqua Venture 

CALL 

Dive Bomber. 

.28.95 

Japan 8 cenery Dbk. 

... 17.95 

Overlord. 

....25.95 


.pill Tracker. 

.29.95 

Amlin Fnx 

.13.95 

Double Dragon. 

.28.95 

Jet. 

...32.95 

Paladin. 

.25.95 

Sky Chase. 

.Tralblazer. 

.32.95 


14 95 

D f mgon nma st Af 

24 95 

Jinxtor 

...25.95 

Paper Boy 

32 95 

Skyfnx 

Transputer. 

.22.95 

Arkanokl 

22 95 

Bite . 

... 29 95 

Joker Poker 

... 32.95 

Phantasie 1,2 or 3. 

.25.05 

J* y®° 

n ^ Twilights Ftansom. 

.22.95 

Art 4 Flm Director. 

.44.95 

Empire. 

.31.95 

Jupiter Probe. 

...17.95 

Phantasm. 

.22.05 

Cittflr 

.Typhoon Thomson. 

.22.95 

Attack on London. 

.21.95 

European 8 cene Disk. 

.17.95 

Karate Kid II . 

...25.95 

Pinball Factory. 

.25.05 

8 pace Harrier. 

.li'!: Utima III or IV. 

.25.95 

Autoduel 

24 95 


18 95 

Karateka 

22 95 

PtoBall Wizard 

.21.05 


Unlnvltod. 


Awesome Arcade Act Pack 

.32.95 

F-15 8 trike Eagle. 

.25.95 

King's Quost 1 . 

...32.95 

Platoon. 

.25.05 

apace uuesi i or z .. 

flpacp ftrfonl ftJm 

. ZZZ Universal Miltary Simulator.. 

.32.95 

Pabme of Power 

.32.95 

Female Data 8 trip Poker. 

.16.95 

King's Quest 2. 

... 32.95 

Plutos. 

.10.05 

8 pood Rjigyy 

. ZrZ Universe II. 

.32.95 

Barbarian.. 

.25.95 

Final Assult. 

.28.95 

King's Quest 4 N E W. 

...32.95 

Police Quest. 

.32.05 

8 portv A- Roiil 

.to5 Uridkjm . 

.25.95 

Bard's Taie. 

.31.95 

Fire and Forget. 

.25.95 

King's Quest 3. 

... 32.95 

President Elect ’88 . 

.18.05 

Spy v* Spy 3 

. 17 ‘ Vampire’s Empire. 

..18.95 

Battle 8 Np_ 

.17.95 

Fire Zone. 

.23.95 

Kosmic Kreig. 

...25.95 

Q-Ball. 

.19.05 

ST Comps Aflyo 

. Vegas Gambler. 

.22.95 

Rermirla Project . 

.25.95 

Right Simulator II.. 

.32.95 

Lancelot. 

... 26.95 

Qtx. 

....25.05 

Star Fleet 1 

. 2* Vlru9 . 

.19.95 


.22.95 

Foundation Waste. 

.24.95 

Leader Board Duo Pak. 

...17.95 

Questran II. 

....31.05 

Stir Gllfter tl 

.*55 Warship. 

.38.95 

Better Dead Than AJien.. 

.21.95 

Fright Run. 

.25.95 

Leatherneck... 

...25.95 

Rastan. 

....25.05 

Star Oinkn 

. 100 , Wargame Construction 8 et ... 

.22.95 

Btemark 

25 95 

Games ■ Summer Ed 

. . 28.95 

Leatherneck 4 Player Adaptor 

.. 13.95 

Rebel Charge Q Chickamauga .. 

...38.05 

ftbar Warn 

.li. Warlock... 

........ 21.95 

Black Cauldron. 

.25.95 

Games : Winter Ed. 

.28.95 

Lebure 8 ult Larrv. 

...25.95 

Rebel Universe. 

.25.05 

001 Vidro... 

flta retrunk 

.14 05 War#W P. 

.38.95 

Black Lamp. 

.17.95 

Qato. 

.24.95 

Lebure 8 uit Lanv 2 bok'n for love 32.95 

Red Alert. 

....11.95 

fttnlar Cn Marin 

-- Western Europe 8 cea Dbk... 

.17.95 

Block Buster . 

.25.95 

Gauntlet. 

.32.95 

Leviathon. 

...10.95 

Renegade . 

....25.05 

Street Cat 

.fx rz Western Games. 

.18.95 

Bouktar Put) Ki) 

17 95 

GiadUtor 

25 95 

Lock Qn 

25 95 

Rings of Zilfin 

. 25 05 


.Winter Chalenge...... 

.10.95 


.25.95 

Global Cmmdr. 

.26.95 

Lords of Conquest. 

...13.95 

Road Raider. 

....32.95 

8 treet 8 occer. 

8 trip Poker 2 

.Winter Games . 

.12.95 

Bridge 5.0. 

.22.95 

Gold of the Flea Im. 

... 24.95 

Lords of the Rising 8 un., 

... 32.95 

Road Wars. 

....20.05 

8 ub Battle 8 im 

.aS Wlz ball. 

.14.95 

Bubble Bauble. 

.25.95 

Goidrunner. 

.25.95 

Major Motion. 

...25.95 

Roadrunner. 

....32.05 

8 undog. 


.25.95 

Bubble Ghost. 

.21.95 

Goidrurmer Seen Disks 1 Or 2 

.10.95 

Manhunter New York. 

...32.95 

Roadwar 2000. 

....25.95 

Super Cycle 

World Games. 


California Games 

28 95 

6 ok)rumer 2 . 

.25.95 

Master Ninja. 

...26.95 

Roadwar Europa. 

.28.05 

Super Star Hookey 

.WWF Micro Wrestling. 

.39.95 

Cip| Blood 

32 95 

Ann* Ruh’n 

29 95 

Match-point 

..25.95 

Rocket Ranger. 

.... 32.95 


.Xevkxjs. 

.10.05 

Card 8 harks... 

_CALL 

Guild of TWeves. 

.29.95 

Menace. 

...19.95 

Rockford. 

.20.05 

Gupor 8 tar Soccer .. . 

T.V. 8 ports Footbal. 

.£« ^. 

.22.95 



OWP EW Q WOlUCTlOHi P)mm *p»©)fy ay* tom. For fa at doJtvory *aod ea*htof*« check or money order. Per* one I and oompeny check* allow 14 bu*ln*«* day* to dear. School P.O.'* wetoome. C.O.D. ohergee are **.00. In Condnwitai USA Inclurto $3.00 for *oftware orrtor* 6% » hipping 
for hardware minimum $6.00. MattoiCard and Vlaa order* plaata Include card •. expItaBon data and dgnature. Wl reektont* p<aa*a Includa 5% salaa tax. HI, AK. FPO, APO, Puerto Rico and Canadton order*, plaa*a add 6% thlpplnp. Minimum 94.00. All other foreign order* add ITS 
ehlpping, mkibnum $19.00. All order shipped out*Ida th* Continental U.8> ara shipped flr*1 oUsa Imuned UB. malL If foreign shipping change* exceed the minimum amount, you aril be charged the adrfttonal amount to get your package to you quickly and safely. Al good* are new and 
Includa factory warranty. Due to our low prloe* al sale* ara final. All daf active return* must have a return authorbatton number. Plaata call (414)367-8181 to obtain an RA# or your return wll not beaooepted Prtoe* and aval I* bitty subject to change without notloa. 
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ISpe-ln Software 


EDUCATION 


Spelling Flashcards 

Friendly quiz that kids like using. By Andy Barton 



S pelling Flashcards is a simple, 
versatile spelling quizzer for all 
ages. It’s enjoyable for kids, without 
intimidating them by excessive flash. 
This BASIC Program works on all 
Atari 8-bit computers with at least 
48K memory and a disk drive. 


Spelling Flashcards is a simple, ver¬ 
satile spelling drill for all ages. Like 
Math Flashcards, the predecessor 
program I wrote (Antic, October 
1987), this spelling quizzer program 
is friendly and interesting with a lit¬ 
tle color and music. But it doesn’t dis¬ 
tract or intimidate kids with unduly 
flashy displays. 

You easily create your own lists of 


hard-to-spell words. Then Spelling 
Flashcards will randomly pick a word 
and flash it on the screen. 

If you spell the word correctly, 
you’re rewarded with an ever- 
changing little tune. Otherwise, the 
screen turns red, the word flashes 
again, incorrect letters are blanked out 
and you get to try again. After you 
type the word correctly, that word 


will be repeated three more times dur¬ 
ing the quiz to help you get it down 
perfectly. 

Speed is important, too. If you take 
too long to spell a word, the program 
considers it incorrect. At the end of 
the quiz, Spelling Flashcards shows 
you the number of correctly spelled 
words and the total number of words 
tried. 

GETTING STARTED 

If you put Spelling Flashcards on a 
separate disk, its menu will be easier 
to read. Format a fresh disk with DOS 
2.0 or DOS 2.5 and write the DOS 
files to it. Type in Listing 1, SPELL¬ 
ING. BAS, check it with TYPO II and 
SAVE a copy before you RUN it. 

If you have trouble typing the spe¬ 
cial characters in lines 5860-5870, 
don’t type them in. Instead, type List¬ 
ing 2, check it with TYPO II and SAVE 
a copy. When you RUN Listing 2, it 
creates these hard-to-type lines and 
stores them in a file called LINES. LST. 
To merge the two programs, LOAD 
“D: SPELLING.BAS ’ ’ and then ENTER 
“D: LINES.LST.” Remember to SAVE 
the completed program before you 
RUN it. 

When RUN, the program displays 
a file menu of all the Spelling Flash- 
card lists on your disk. The menu at 
the bottom of the screen lets you load 
one or more Spelling Flashcards lists, 
edit a list, or create a new list. 

Type a list’s number to load it into 
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Spelling Flashcards. You can choose 
a single number, several numbers 
separated by commas or two numbers 
separated by a hypen, indicating a 
block of files. For example, type a 3 
to load list number 3. Type 3,3,9 to 
load lists 3, 5 and 9. Type 5-8 to load 
lists 5, 6, 7 and 8. 

Edit a list by typing E followed by 
the number of the list you wish to 
edit. For example, typing E7 will let 
you edit list number 7. Finally, type 
N to create a new list of spelling 
words. 

CREATING A LIST 

If you’re typing-in SPELLING.BAS, 
you’ll need to create a few lists before 
you continue. Antic Disk owners will 
find several spelling lists on this 
month’s disk. These lists have a .DAT 
file extender. 

To begin your list, type N. The pro¬ 
gram will ask you for a title of your 
list. The title can be up to 8 charac¬ 
ters long, and will be used to store 
your list to a disk file. While you may 
type most anything you wish, the 
program will adjust it to conform to 
a standard Atari disk filename, and 
add a .DAT extender. 

Spelling Flashcards will display the 
adjusted filename and ask you if it is 
correct. Press N to change the file¬ 
name, or press any other key to ac¬ 
cept it. Pressing [RETURN] without 
typing a title sends you back to the 
main menu without creating any new 
lists. 

Next you’re asked to select the 
number of seconds you wish the 
word to be flashed on the screen. The 
default is 0.75, but younger children 
might find one or two seconds more 
reasonable and less threatening. You 
can also change this value later in the 
Edit mode, if you wish. 

Now type in your list. Each word 
can be as many as 15 characters long, 
including hyphens, apostrophes, and 
spaces. Numbers and lowercase letters 
are not allowed. You may have up to 
40 words per list. When you’re done, 
press [RETURN] to save your list to 


disk. 

PLAYING THE GAME 

After the program loads the list(s) 
you selected, you’ll see the words dis¬ 
played onscreen for you to review. 
Press any key to shirt the drill. 

Spelling Flashcards randomly 
selects a listed word and briefly 
flashes it onscreen. Your task is to type 
it in. The [DELETE] and arrow keys 
will fix any typing mistakes you make. 
After you spell the word, the program 
will check it. There is no need to press 
[RETURN]. 

Correctly spelled words are re¬ 


warded with a brief ever-changing 
tune. Misspelled words turn the 
screen red and must be corrected. 
They are repeated three times on or¬ 
ange screens, mixed in with new 
words. 

If you are totally stuck, press [RE¬ 
TURN] to flash the word onscreen 
again. This counts as a misspelling. If 
you do not type the word quickly 
enough, you’ll also be penalized for 
a misspelling. 

Errors are not monitored directly, 
but the number of tries and the num¬ 
ber of correct answers are counted. 
The purpose of the drill is to teach, 
not penalize. 

When you’re done, Spelling Flash- 
cards plays a longer random tune. 
Press any key to go on to your next 
list or return to the main menu. 

EDIT A LIST 

The New List and Edit options 
share a section of programming. Ad¬ 
ding, correcting and deleting words 
is done the same way. When a key is 


pressed, a Graphics 2 window opens 
in the middle of the screen. You’ll en¬ 
ter and edit words within this 
window. 

To add a word simply type it. To 
edit a word, type the number of the 
word in the list displayed onscreen, 
then edit the word. You don’t need 
to press [RETURN], but the second 
digit of a two-digit number must be 
pressed within 0.3 seconds. 

The [DELETE] and [CONTROL]- 
[DELETE] keys work in the normal 
Atari fashion. Move the cursor (a blue 
bar below the letters) with the left and 
right arrow keys. You do not need to 


press [CONTROL] to use these keys. 

Press [RETURN] to accept the word 
and display the updated list. To de¬ 
lete a word, simply bring it into the 
window by typing its number, [DE¬ 
LETE] or [SPACEBAR] over each let¬ 
ter and press [RETURN]. When you 
are finished with a list, press [RE¬ 
TURN] to save it to disk and return 
to the main menu. 

PROGRAM TAKE-APART 

Spelling Flashcards is written up¬ 
side down, with the initialization rou¬ 
tines and lesser-used portions at the 
end of the program. The frequently 
used subroutines are at the top, where 
BASIC can find them quickly. 

Lines 5500-5570. The initialization 
section starts with a table of 
parameters which you can customize. 
DVIEW in line 5550 is the default 
value for the length of time a word 
is flashed on the screen. You can ex¬ 
periment with different values when 
you enter or edit a list. If you want 
the timer to use a different default 


Correctly spelled words 
are rewarded with a brief 
ever-changing tune. 
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value, put it in line 5550. If you 
change line 5550, remember to SAVE 
the program to make the change per¬ 
manent. 

Lines 5860-5870 contain a speedy 
machine language “memory move” 
routine, a modified version of a USR 
routine from Antic Tech Tips (Janu¬ 
ary 1985, page 64). Here, I use it to 
copy the character set from ROM to 
RAM, where it is redefined at line 
5900. 

Lines 4500-5020: This routine 
reads and displays the disk menu. See 
Antic Tech Tips, July 1986, page 87. 

The main menu, as well as word 
lists, are displayed in the largest 
graphics mode possible. The program 
uses Graphics 2 if the list is 10 words 
or less and Graphics 1 if it is 20 or less. 
Larger lists use Graphics 0. Lines 4600 
and 3130 do this with a little Boolean 
math. In one line, this routine does 
the same work as three or four lines 
of IF-THEN statements. (See Antic, 
August 1984, pages 48-52.) 



HAVE A QUESTION 
ABOUT YOUR 
SUBSCRIPTION? 

Get an answer fast! 

Call Toll Free: 

(800) 347-6969 

Write: 

Antic Customer Service 
P.O. Box 1919 
Marion, OH 43306 



Line 3230-3360. The main loop of 
the program is short, but uses subrou- 
tines extensively. And many of these 
subroutines call other subroutines. 
The result is a compact, easy-to-type 
program. 

Within this loop, the matrix 
TRACK(X,X) keeps track of the status 
of the words in your list. It has two 
rows. Row (0,X) contains a random 
series of numbers. Each number cor¬ 
responds to a word in the spelling list. 
The program uses this information to 
build its random list of words. 

Row (1,X) records how many more 
times a misspelled word must be 
repeated. TRACK(1,0) is a flag which 
directs the main loop to the proper 
combination of subroutines for either 
the basic drill or the misspelled drill. 

Lines 110-140. The first subroutine 
is a timer. It is short, clean and ac¬ 
curate. Probably most every other 
programmer knows about it. But I just 
recently stumbled upon it in a article 
I read but forgot years ago (Antic, 
March 1984, pages 19-21). If you’re 
not familiar with Atari’s built-in count¬ 
down timers, take a second to check 
them out. 

A countdown timer is a system 
timer that counts backwards and uses 
jiffies (60 jiffies = one second) instead 
of seconds. This program uses 
CDTMV3, system timer 3. Here’s how 
to use countdown timers: 

1. Determine the length of time you 
need to monitor, and convert this 
value into jiffies. Five seconds, for ex¬ 
ample, is equal to 300 jiffies. 

2. Separate this value into low-bytes 
and high-bytes. The low and high- 
byte values of 300, for example, are 
44 and 1. 

3. Temporarily turn off the clock 
by placing a 1 (or any non-zero value) 
into CRITIC, the critical I/O region 
flag (memory location 66, $42). 

4. Set the timer by placing your low 
and high-byte values into the count¬ 
down timer register. In this example, 
we’re using countdown timer 3, 
CDTMV3, which is accessed through 
memory locations 540 and 541 


($021C and $021D). 

5. POKE a zero into CRITIC to turn 
the clock back on and start counting. 

6. Monitor countdown timer flag 3, 
CDTMF3, memory location 554 
($022A). When PEEK(554) = 1, time is 
up! See line 3880 where the program 


You easily 
create your 
own lists of 
hard-to-spell 
words. 


is waiting for either a key to be 
pressed or the timer to run out before 
it moves on. 

Here’s one last item you may wish 
to customize. I hate pressing [RE¬ 
TURN] if it is not absolutely necessary. 
This program was designed with that 
bias in mind. However this poses a 
problem when you could choose to 
enter a 1 or 2 digit number. This hap¬ 
pens in the Edit section of the pro¬ 
gram when you could choose to edit 
word 1 or word 15. 

Problem: How is the program go¬ 
ing to know when you are through 
if you don’t press [RETURN]? Solu¬ 
tion: set a brief time limit for enter¬ 
ing the second digit. Line 3870 does 
this: SEC = 0.5:GOSUB 110 sets the 
timer for half a second. If this is too 
short, you can increase the 0.5 to a 
larger number. Again, remember to 
SAVE the program if you want to make 
the changes permanent. A 


Andy Barton has been a frequent Antic 
contributor since 1984. To his credit are 
such programs as Son Of InfoBits and 
TYPO II, Antic’s type-in listing proof¬ 
reader. TYPO II has appeared in every 
issue since January> 1985. 

Listing on page 34 
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TYPING SPECIAL ATARI CHARACTERS 


The Atari Special Characters and 
the keys you must type in order to 
get them are shown below: 

For [CONTROL] key combina¬ 
tion, hold down [CONTROL] while 
pressing the next key. For inverse 
[CONTROL] [A] through 
[CONTROL] [Z], press the [3] 
key—or [ A ] on the 400/800—then 
release it before pressing the next 
key (Press [ 3] or [ A ] again to turn 
off inverse.) For [ESC] key combina¬ 
tions, press [ESC] and then release 
it before pressing the next key. 

Carefully study the chart above 
and pay close attention to differ¬ 
ences between lookalike characters 
such as the slash key’s [/] and the 
[CONTROL] [F] symbol [0]. 


NORMAL VIDEO 


FOR TYPE 

THIS THIS 

® CTRL , 
ffl CTRL A 

□ CTRL B 
ffl CTRL C 
9) CTRL D 
51 CTRL E 
0 CTRL F 
S CTRL G 
H CTRL H 

□ CTRL I 
B CTRL J 
O CTRL K 
n CTRL L 

□ CTRL M 

□ CTRL N 
E CTRL 0 
ffl CTRL P 
ffl CTRL Q 
H CTRL R 


FOR TYPE 

THIS THIS 

ffl CTRL S 
ffl CTRL T 
y CTRL U 
D CTRL V 
ffl CTRL W 
ffl CTRL X 
B CTRL Y 
ffl CTRL Z 
H ESC ESC 
ffl ESC CTRL 
ffl ESC CTRL = 
ffl ESC CTRL + 
ffl ESC CTRL * 
ffl CTRL . 
ffl CTRL ; 

II SHIFT = 

H ESC SHIFT 
CLEAR 

* ESC DELETE 
\S ESC TAB 


INVERSE VIDEO 

FOR TYPE 

THIS THIS 

□ ESC 
SHIFT 

DELETE 

□ ESC 
SHIFT 

INSERT 

□ ESC 
CTRL 

TAB 
B ESC 
SHIFT 
TAB 

□ ACTRL . 

□ A CTRL ; 

O ASHIFT = 

□ ESC CTRL 2 

□ ESC 
CTRL 

DELETE 
D ESC 
CTRL 
INSERT 


TYPO II AUTOMATIC PROOFREADER 

TYPO II automatically proofreads Antic’s type-in BASIC listings. Type in the listing below and SAVE a copy to disk 
or cassette. Now type GOTO 32000. At the prompt, type in a single program line without the two-letter TYPO II 
code at the beginning. Then press [RETURN], 

Your line will reappear at the bottom of the screen. If the TYPO II code does not match the code in the magazine, 
then you’ve mistyped your line. 

To call back a previously typed line, type [*], then the line number, then [RETURN], When the completed line ap¬ 
pears, press [RETURN] again. This is how TYPO II proofreads itself. 

To LIST your program, press [BREAK] and type LIST. To return to TYPO II, type GOTO 32000. To remove TYPO 
II from your program, type LIST “D:FILENAME”,0,31999, then [RETURN], then NEW, then ENTER “D:FILENAME”, 
then [RETURN]. Now you can SAVE or LIST your program to disk or cassette. 



Don't type the 
TYPO II Codes! 


U D 

un 

H 5 

BN 

YC 


32000 REM TYPO II BY ANDY BARTON 
32010 REM UER. 1.0 FOR ANTIC MAGAZINE 
32020 CLR :DIM LINESd20J:CLOSE »2:CL0 
5E «3 

32030 OPEN »2,4,0,"E":OPEN «3,5,0,"E" 
32040 ? POSITION 11,1:? "DCiafflBOIJB** 


EM 
H 5 


XH 


TH 

MF 


32050 TRAP 32040:POSITION 2,3:? "Type 
in a prosraM line" 

32060 POSITION 1,4:? " ":INPUT »2;LINE 
S:IF LINES = "" THEN POSITION 2,4:LIST B 
: G 0 T 0 32060 

32070 IF LINES cl,1)="H" THEN B = UAL (LIN 
ESC2 ,LENCLINESJjJ:POSITION 2,4:LIST B: 
GOTO 32060 

32080 POSITION 2,10:? "C0NT" 

32090 B=UALCLINESJ:POSITION 1,3*? " "; 


NY 

CN 

ET 

CE 

OR 


UU 

WJ 

JW 

EH 

BH 

HB 

IE 

UG 


32100 POKE 842,13:STOP 
32110 POKE 842,12 

32120 ? "*«" : POSITION 11,1:? "■UQHmBiiHa 
" : POSITION 2,15:LI5T B 
32130 C=0:ANS=C 

32140 POSITION 2,16:INPUT »3;LINES:IF 
LINES = "•• THEN ? "LINE ";B;" DELETED" : G 
0T0 32050 

32150 FOR D=1 TO LENCLINES*:C=C+1:AN5= 
AN5+cC*ASCcLINEScD,D>5J:NEXT D 
32160 C0DE=INTCAN5'676> 

32170 C0DE=AN5-cC0DE*676) 

32180 HC0DE=INTtC0DE'26> 

32190 LC0DE = C0DE - cHC0DE*26> +65 
32200 HC0DE=HC0DE+65 

32210 POSITION 0,16:? CHRS (HC0DE> ;CHRS 
c L C 0 D E ) 

32220 POSITION 2,13:? "If CODE does no 
t natch press ■ftfHHmiiMW and edit line a 
bove.":GOTO 32050 
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YOU WONT LOSE YOUR SHIRT TO THE 8-BIT CROUPIER 


ROULETTE, ATARI STYLE 


Article on page 18 


LISTING 1 


Don't type the 
TYPO II Codes! 


nu 

RR 

QU 

IL 


QP 

US 


UU 

EC 

SQ 

JU 


XU 


AS 


XT 


RU 


FU 


MS 

SA 

XK 

AY 

LU 

UH 


RC 

FH 

HQ 

YO 

KN 

RU 

UU 

UJ 

GP 


NX 

XI 

JR 

SR 

UG 

TX 

TM 

QU 

OD 


2 REM ROULETTE 
4 REM BY MICHAEL PEMBERTON 
6 REM c C )1988, ANTIC PUBLISHING 
10 GRAPHICS 2:? »6 : ? «6 : ? »6 : ? «6 ; " 

ROULETTE" *? :? :? »6 ; " 0E2" : 

? **6; "Michael aU peiiberton" 

20 ? " One Monent Please”:? •• 

Screen Uill Go Blank For 10 Seconds" 
100 DIM CQLRS (36) ,5TRc38), STREET €12) , L 
N6c 11),BET$c370),SURE (22),ASCII,SPLIT c 
58),COLc3),UHEELC38) 

110 GRIDFIX=4110:CHECKCASH=4210:PLACES 
ET=4310:ZERO=4470 

120 COLRS="RBRBRBRBRBBRBRBRBRRBRBRBRBR 
BBRBRBRBR" 

130 REM BETTING MATRIX 

14 0 BET $ cl#74)eqfrsshhtiiujJvkkw 

1 lXMnynnzooBppBB>CKBffl*ia-ca0E]EI3E]B6aB9BH<B 
ffl?KBBfflfflE!!H$$d" 

141 BETS €75,148) ="fflx>;BJfflLQNBPPORRQTTBU 
uaxxazzBNsB^^B**BBaasa)ffl,a^aa2aa5fflffl8s* 
;fflffl>fflfflAfflfflD G««c" 

142 BETS (149,222) ="B&&BI£]K[EMfi0 0CIQQC15 5B 

UUBUUGYYBC cfJJ ) B-BB&&B* cJI+PS . EEinn4**7* 

®:nCJ=BreffiffiCfflaFXXb" 

143 BETS€223,296)="B1B'eqfrsshhtiiuJJv 
kkw uxHNtfnnzo offip pBfflBBBOOflCinOCI JBCBBCEEB 
BBBBBX X X X X X X X X X XB" 

144 BETS €297,370)="BBBBBBBBBfflBBBBBBBBB 
BBBBBBBBBBBBBBBBBBBBBBnnnnBnnUBSBGBGBB 
BOUQBHHHHBBOOHBHB • * 

145 BETS€220,220)=CHRS€34):BETS(221,22 
1)=CHRS€34):FOR X=285 TO 295:BETS€X,X) 
= CHRS€155) * NEXT X 

146 FOR 1=1 TO 38:READ X:UHEELCD=X:NE 
XT I 

150 REM CLEAR ARRAYS 
160 GOSUB 4470 
300 REM COLOR GAMEBOARD 
305 POKE 559,0 

310 FOR 1=0 TO 3:POKE 53256+1,3:NEXT I 
:POKE 53260,1:I=PEEK€106):I=I”0:POKE 1 
06,1 

320 POKE 623,1 * FOR J = 0 TO 3*P0KE 704 + J 
,54 * NEXT J:POKE 54279,1:PMMEM=I*256 
350 FOR J = PMMEM TO PMMEM+2047* POKE J,0 

370 FOR J=PMMEM+1061 TO PMMEh+1074*POK 
E J,207:POKE J+16,48:P0KE J+32,204*POK 
E J + 256,143:POKE J + 272,112 * NEXT J 
380 FOR J=PMMEM+1349 TO PMMEM+1362*POK 
E J,15:POKE J+224,199:POKE J+240,56:PO 
KE J+256,199SNEXT J 

390 FOR J=PMMEM+1829 TO PMMEM+1842*POK 
E J,227:POKE J+16,28*P0KE J+32,3:NEXT 
J 

400 FOR J=PMMEM+805 TO PMMEM+818:POKE 
J,3:POKE J+32,3•NEXT J 

410 GRAPHICS 0:POKE 710,196’POKE 559,6 

2 

420 POKE 53277,3 

430 POKE 53248,70:POKE 53249,102:POKE 
53250,134:POKE 53251,166 * POKE 53252,19 
8 

440 REM GAME SETUP 
450 CA5H=500:OLDNQ=0 
460 HP05=2:UPO5=0 
500 GOSUB 5010 

510 POSITION 2,12:? "CASH AUAILABLE: S 
";CASH 

900 REM CURSOR MOUEMENT 

1000 POSITION HP05+1,UP05«? "ffl"; 

1010 IF STICK (0) =14 THEN ? "0B";:UPOS = U 
POS-1 

1020 IF STICK(0) =13 THEN ? "ffi";:UPOS = U 
P05 + 1 


ts, 

TA 

FA 

DI 

NJ 

UU 

XM 

XX 

JQ 

UY 

NU 

XH 

UU 

KU 

FI 

KD 

IU 

PT 

NR 

YC 

XA 

KJ 

FJ 

HS 

IM 


HA 


OG 

SZ 

OZ 

UH 

RG 

AC 

GN 

GN 

FG 

MI 

DQ 

AS 

BH 

YM 

FZ 

UL 

BA 

KU 


AR 

IZ 

PO 

UO 

DK 

BD 


1030 IF STICK €0)=7 THEN ? "ffl"; :HP05 = HP 
05 + 1 

1040 IF STICK €0)=11 THEN ? "ffl";:HP05=H 
POS-1 

1045 IF UPO5<0 THEN UP05=9:POSITION HP 
OS,8:? "EE"j 

1047 IF UP05>9 THEN UPOS=0:POSITION HP 
05,1:? ••BB"; 

1048 IF HPOS>38 THEN HP0S = 2* POSITION 3 
,UP05 : ? "ffl"; 

1049 IF HPOS < 2 THEN HP05 = 38:POSITION 3 
7,UPOS:? "ffl"; 

1050 FOR 1=1 TO 5:K=RND€0):NEXT I 
1060 IF STRIG €0)=0 THEN X=PEEK(93):? " 
*";:GOTO 1080 

1065 IF PEEK(53279)=6 THEN 2010 

1070 GOTO 1010 

1075 REM INTERPRET BETS 

1080 I = UP0S«37 + HP0S‘HBET = ASC (BETS cl, I 

) ) 

1085 IF BET = 0 THEN ? "El"»GOSUB 4110:? 

"ffl";:GOTO 1010 

1090 IF BET<39 THEN 1200 

1100 IF BET = 39 THEN 1260 

1110 IF BET>39 AND BET<98 THEN 1310 

1120 IF BET >97 AND BET<101 THEN 1410 

1130 IF BET >100 AND BET<113 THEN 1440 

1140 IF BET >112 AND BET<125 THEN 1480 

1150 IF BET >124 AND BET<147 THEN 1520 

1160 BET = BET-146* ON BET GOTO 1550,1560 

,1570,1580,1590,1600,1610,1620,1630 

1190 REM RECORD UARIOUS BETS 

1200 REM STRAIGHT BET 

1205 IF BET = 37 THEN POSITION 2,15:? "□ 

□BET ON 0 (Y/N)";:GOSUB 4310:GOTO 1240 

1206 IF BET = 38 THEN POSITION 2,15:? "□ 
□BET ON 00 cY'N)";:GOSUB 4310:GOTO 124 
0 

1210 POSITION 2,15:? "□□BET ON ";BET;" 
cY'N)";:GOSUB 4310 

1240 5TRcBET)=STRcBET)+AMT:GOTO 1000 
1250 REM 5 LINE BET 

1260 POSITION 2,15:? "□□LINE BET €5) € 

Y'N)";:GOSUB 4310 

1290 LN5=LN5+AMT:GOTO 1000 

1300 REM SPLIT BET 

1310 POSITION 2,15:BET=BET~39 

1320 IF BET < 34 THEN ? "□□SPLIT BET ON 

";BET;",";BET+3;" (Y'N)"j:GOTO 1360 

1330 IF BET=58 THEN ? "□□SPLIT BET ON 

0,00 CY'N)";:GOTO 1360 

1340 J=BET-33:J=J+INTCCj-l)/2) 

1350 ? "□□SPLIT BET ON ";J;",";J+l;" c 
Y'N)"; 

1360 GOSUB 4310 

1390 SPLIT CBET)=SPLIT(BET)+AMT:GOTO 10 
00 

1400 REM COLUMN BET 

1410 POSITION 2,15:? "DQBET ON COLUMN 
";BET-97;" cY'N)GOSUB 4310 
1420 COL (BET-97)=C0L(BET-97)+AMT * GOTO 
1000 

1430 REM STREET BET 

1440 BET=BET-100:POSITION 2,15:? "DDBE 
T ON STREET ";BET+2*BET-2;",";BET+2*BE 
T-l;",";BET+2«BET;" (Y'N)"; 

1450 GOSUB 4310 

1460 STREET(BET)=5TREET(BET)+AMT:GOTO 
1000 

1470 REM LINE SIX BET 

1480 BET = BET-112 *J = BET+(BET-1)m2:POSIT 
ION 2,15 

1485 ? "□□LINE BET ON ";J;",";J+l;","; 
J+2;",";J+3;",";J+4;",";J+5;" (Y'N)"; 

1490 GOSUB 4310 
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GU 

XI 

BS 


AN 

UU 


1500 LN6CBET>=LN6CBET>+AMT:G0T0 1000 
1510 REM SQUARE BET 

1520 BET=BET-124:J=BET+INTccBET-1) ' 2 * : 
POSITION 2,15:? "□□BET ON SQUARE ";Jj" 
,";J+l;",";J+3;",";J+4;" cYsN) 

1530 GOSUB 4310 

1540 SQREcBET>=SQREcBET>+AMT:GOTO 1000 


UF 

ZX 

YC 


UG 


XJ 


Mh 


SU 


XZ 


JN 


LA 

YD 

BU 

UJ 

JQ 


TY 

UU 

OF 

MF 

T5 

UA 

FX 

DX 

MK 


SD 

TY 


QB 

GU 

EC 

NI 

GD 

GU 

ZB 

ND 

FU 

AH 

JB 

JM 

QG 

HK 

XK 


YN 


LE 


KB 

CJ 


1550 POSITION 2,15:? "□□BET ON 19-36 c 
Y'N*";:GOSUB 4310:HI=HI+AMT:GOTO 1000 
1560 POSITION 2,15:? "□□BET ON 1-18 cY 
sN) " ;:GOSUB 4310:LO=LO+AMT:GOTO 1000 
1570 POSITION 2,15:? "□□BET ON ODD NUM 
BERS CY'N>";:GOSUB 4310:ODD=ODD+AMT:GO 
TO 1000 

1580 POSITION 2,15:? "□□BET ON EUEN NU 
MBERS CY/NJGOSUB 4310:EUEN=EUEN+AMT 
: GOTO 1000 

1590 POSITION 2,15:? "□□BET ON RED NUM 
BERS cY'N*";:GOSUB 4310:RED=RED+AMT:GO 
TO 1000 

1600 POSITION 2,15:? "□□BET ON BLACK N 
UMBERS cYsN)"; : GOSUB 4310:BLACK=BLACK+ 
AMT:GOTO 1000 

1610 POSITION 2,15:? "□□BET ON 1ST DOZ 
EN CY/Ni";:GOSUB 4310'DZN1=DZN1+AMT:GO 
TO 1000 

1620 POSITION 2,15:? "□□BET ON 2ND DOZ 
EN cY'N*"J:GOSUB 4310:DZN2=DZN2+AMT:GO 
TO 1000 

1630 POSITION 2,15:? "□□BET ON 3RD DOZ 
EN cY'N)";:GOSUB 4310:DZN3=DZN3+AMT:GO 
TO 1000 

2000 REM SPIN THE UHEEL 

2010 POSITION 2,12:? "□□□□□□";:POKE 75 
2,1 

2020 X = INT c 200 *RNDc 0 jj :IF X<76 OR X>19 
0 THEN 2020 

2022 ? "UINNING NUMBER IS: ••; 

2024 FOR 1 = 0 TO X-UPOSITION 21,12*J=c 
cOLDNO+I* -38*INT c cOLDNO+I)s38))+1 : ? " 

2 02 6 # IF UHEEL cJ)=37 THEN ? "0":GOTO 20 
32 

2028 IF UHEEL cJi=38 THEN ? "00":GOTO 2 
032 

2030 ? UHEEL cJi 

2032 FOR DELAY=1 TO 5<NEXT DELAY:NEXT 
I 

2040 NUM=UHEELCJ>:OLDNO=J:POKE 752,0 
3000 REM CALCULATE UINNINGS 
3005 POSITION 2,14 
3010 REM STRAIGHTS 

3020 IF STRCNUM) THEN UIN=UIN+35*STRcN 
UM) *CA5H = CASH + STRcNUM> *? "UIN STRAIGHT 
BET:";35*5TRCNUM> 

3030 REM FIUE LINE 

3040 IF LN5 AND CNUM<4 OR NUM>36> THEN 
UIN=UIN+6*LN5:CA5H=CASH+LN5:? "UIN LI 
NE BET C5):";6*LN5 
3050 REM SPLITS 
3060 FOR 1=1 TO 33 

3062 IF NOT cSPLIT<I> AND CNUM=I OR N 
UM=I+3>> THEN 3065 

3063 UIN=UIN+17*5PLIT cl) :CASH = CA5H + SPL 
IT H) :? "UIN SPLIT BET:";17*5PLIT cl* 
3065 NEXT I 

3067 FOR 1=34 TO 57:J=I-33:J=J+INTCCJ- 
1) s2) 

3070 IF NOT CSPLITCH AND cNUM=J OR N 
UM=J+1)) THEN 3072 

3071 UIN=UIN + 17*5PLIT CD :CA5H = CA5H + 5PL 
IT cl) :? "UIN SPLIT BET:";17*SPLITcl) 

3072 NEXT I 

3075 IF NOT cSPLITC58) AND CNUM=37 OR 
NUM=38>> THEN 3090 

3077 UIN=UIN+17*SPLITc58):CASH=CASH+5P 
LITC58*:? "UIN SPLIT:";17*5PLITC58) 
3080 REM DROP OUT 0 AND 00 
3090 IF NUM> 36 THEN 3410 
3100 REM COLUMNS 

3110 IF INTcNUMs3)=NUMs3 AND COLc3) TH 
EN UIN = UIN + 2*COL c3) :CA5H = CA5H+C0Lc3) :? 

"UIN COLUMN 3 BETs";2*C0Lc3) 

3120 IF INTccNUM+l)s3)=cNUM+l)s3 AND C 
OL c2) THEN UIN=UIN+2*C0Lc2) :CASH = CA5H + 
COLC2*:? "UIN COLUMN 2 BET:";2*C0L c2) 
3130 IF INT c cNUM+2) s 31 = cNUM+2)s 3 AND C 
OL cl) THEN UIN=UIN+2*C0Lcl) :CASH=CA5H+ 
COLcia:? "UIN COLUMN 1 BET:";2*C0Lcl) 
3140 REM STREETS 
3150 STCNT=NUM:I=0 


KI 

RU 

ZK 


DS 

DZ 

MZ 


FM 

GM 

FK 

UI 

DE 


FQ 

KC 

MG 


UL 

BQ 

CX 


IM 


MX 

DN 


FK 


LO 

LX 


EM 


PY 


EA 

PO 

SU 

ML 

BM 

KB 

OF 

DO 

RH 

RS 

NJ 

XJ 

NJ 

ON 

GN 

AN 

AP 

MX 

QO 

UF 

SI 

ZZ 

AU 

UJ 

CU 


FE 

UU 

AI 


3160 5TCNT = 5TCNT-3 s1 = 1 + 1 * IF 5TCNT<1 TH 
EN 3180 

3170 GOTO 3160 

3180 IF 5TREETCH THEN UIN=UIN+11*STRE 
ETCU:CA5H=CA5H+5TREETCI):? "UIN 5TREE 
T BET:";11*5TREETcl) 

3190 REM SIX LINE 
3200 FOR J=1 TO 11 

3210 IF LN6CJ1 AND cl=j OR I=J+1) THEN 
UIN=UIN+5*LN6cj> : CASH = CA5H+LN6CJ) :? " 
UIN LINE BET:";5*LN6 c J) 

3220 NEXT J 
3230 REM SQUARES 
3240 FOR 1=1 TO 22 
3250 SQ=INTccI-1)^2) 

3260 IF SQREclJ AND CNUM=I+5Q OR NUM=I 

+5Q+1 OR NUM=I+5Q+3 OR NUM=I+5Q+4) THE 

N GOSUB 4430 

3270 NEXT I 

3280 REM HIGH^LOU 

3290 IF HI AND NUM>18 AND NUM<37 THEN 
UIN = UIN'*‘HI : CASH = CA5H + HI : ? "UIN 19~36 B 
ET:";HI 

3300 IF LO AND NUM<19 THEN UIN=UIN+LQ: 
CA5H=CASH+L0:? "UIN 1-18 BET:";LO 
3310 REM ODDsEUEN 

3320 IF ODD AND INT<NUMs2*<NUMs2 THEN 
UIN=UIN+ODD:CA5H=CA5H+0DD:? "UIN ODD B 
ET:";ODD 

3330 IF EUEN AND INTcNUM'2)=NUM'2 THEN 
UIN=UIN+EUEN:CASH=CASH+EUEN'? "UIN EU 
EN BET:";EUEN 
3340 REM BLACKS RED 

3350 IF RED AND COLR$ (NUM,NUM>="R" THE 
N UIN=UIN+RED:CA5H=CASH+RED:? "UIN RED 
BET:";RED 

3360 IF BLACK AND COLR$cNUM,NUM)="B" T 
HEN UIN=UIN+BLACK:CASH=CA5H+BLACK:? "U 
IN BLACK BET:";BLACK 
3370 REM DOZENS 

3380 IF DZN1 AND NUM<13 THEN UIN=UIN+2 
^DZNl:CA5H=CASH+DZN1:? "UIN 1ST DOZEN 
BET:";2*DZN1 

3390 IF DZN2 AND NUM>11 AND NUM<25 THE 
N UIN=UIN+2*DZN2:CASH=CA5H+DZN2:? "UIN 
2ND DOZEN BET:";2^DZN2 
3400 IF DZN3 AND NUM>24 THEN UIN=UIN+2 
^DZN3:CASH=CASH+DZN3:? "UIN 3RD DOZEN 
BET s";2 M DZN3 
3410 GOSUB 4470 
3500 REM DISPLAY UINNINGS 
3510 ? "CA5H=";CASH;" UINNINGS=";UIN 
3520 CASH = CA5H + UIN:UIN = 0 * IF CASH = 0 THE 
N 4400 

3530 ? "PRESS RETURN TO CONTINUE":? "0 
R ENTER •Q• TO QUIT";:INPUT A$ 

3540 IF A$<>"Q" THEN 500 

3550 IF C ASH > 500 THEN ? :? "HEfflaSHDfflllS 

Oil mm. YOU KXHD *";CASH-5B0:END 
3560 IF CASH<5BB THEN ? >? "BmfflfflH. YOU 
ntoao 6"j 500-CASH: END 

3570 ? :? "mnmmmmmMnmn. it could be 

UORSE•":END 

4100 REM 6RIDFIX SUBROUTINE 
4110 IF X > 64 AND X<91 THEN X = X-64:GQT0 
4130 

4120 IF X < 64 THEN X = X + 32 

4130 POSITION HPOS,UPOS *? CHR*cX>;:RET 

URN 

4200 REM CHECK CASH SUBROUTINE 
4210 IF CASH-AMT < 0 THEN ? "QNOT ENOUGH 
MONEY":GOSUB 4110:GOTO 4230 
4220 CA5H = CA5H-AMT * POSITION 2,12:? "CA 
SH AUAILABLE * 9 fflfflfflfflffl";CASH 

4230 RETURN 

4300 REM PLACE BET SUBROUTINE 
4305 TRAP 4520 

4310 INPUT A$:IF A$<>"Y" THEN GOSUB 41 
10 : ? "8B" ; * GOTO 1010 

4320 ? "AMOUNT"; :INPUT AMT:IF AMT = 0 TH 

EN GOSUB 4110:? sGOTO 1010 

4330 GOSUB 4210 

4340 RETURN 

4400 REM GONE BROKE 

4410 ? "SORRY, YOU'RE BROKE":? "OBTRY A 
GAIN cYsN)";sINPUT A$:IF A$="Y" THEN 4 
40 

4420 END 

4430 REM SQUARE UIN SUBROUTINE 

4440 UIN = UIN + 8*SQRE cl> :CA5H = CA5H + 5QRE c 
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AZ 

BY 

QU 


MU 


OX 

AM 

DK 

JD 

QI 

BL 


on 

AH 

MB 

NU 

NA 

FA 

QT 

NX 


Ii:? "MIN SQUARE BET*";8*SQREcl> 

4450 RETURN 

4460 REN ZERO ALL BETS 

4470 HI=0*LO=0:ODD=0:EUEN=0*BLACK=0:RE 
D = 0*DZN1 = 0*DZN2 = 0*DZN3 = 0* COLcl)=0:COL< 
2.1=0 : COL C3i=0 * LN5 = 0 

4480 FOR 1=1 TO 38«STRell=0:NEXT I*FOR 
1 = 1 TO 12*5TREETCIJ=0:NEXT I * FOR 1 = 1 
TO 1L *LN6 tD=0:NEXT I 

4490 FOR 1 = 1 TO 22:SORE ell=0:NEXT I*FO 

R 1 = 1 TO 58*SPLITCH=0:NEXT I 

4500 RETURN 

4510 REN INPUT ERROR 

4520 POP *GOSUB 4110:GOTO 1000 

5000 REN DRAM BOARD 

5010 ? "H"*POSITION 2,0:? "BBBffiBfflBfflBfflB 

2X15X18X21X24X27X30X33X36X* 

5020 POSITION 2,2*? "X 
B®BB®BB®BB®BB®BB®BS® ®BB®2X5X8X11X14X1 
7X20X23X26X29X32X35X" 

5030 POSITION 2,4:? "X00®B®B®B®BB®BB®B 

6XI9X22X25X28X31X34X" 

5040 POSITION 2,6*? 


D 12 X 3RD 12 X" 
5050 POSITION 2,8*? " 


X 1ST 12 X 2N 


XI-18XEUNX RED 


XBLACKX ODD X19-36X" 

5060 POSITION 2,10*? •• 

6130 REN MHEEL CONFIGURATION 

6140 DATA 38,27,10,25,29,12,8,19,31,18 

,6,21,33,16,4,23,35,14,2,37,28,9,26,30 

6150 DATA 11,7,20,32,17,5,22,34,15,3,2 

4,36,13,1 


LISTING 2 


OP 

IL 

OH 

OD 

EU 


IJ 

PR 


MO 


RD 


PY 


TH 

UB 

NY 

KB 

PU 

LM 


10 REN ROULETTE, LISTING 2 

20 REN BY NICHAEL PENBERTON 

30 REN €c>1988, ANTIC PUBLISHING 

35 REN CREATES LINES 140-144 

40 REN CLINES 10-250 NAY BE USED MITH 

OTHER BASIC LOADERS IN THIS ISSUE. 

50 REN CHANGE LINE 70 AS NECESSARY.> 

60 DIN FN$C201,TENP«C20J,AR«C93J*DPL=P 
EEKC10592)*POKE 10592,255 
70 FN$="D*LINE5.LST":REN THIS IS THE N 
ANE OF THE DISK FILE TO BE CREATED 
80 ? "Hfflisk or Hassette?";:POKE 764,25 
5 

90 IF NOT CPEEKC764J=18 OR PEEKc764>= 
50) THEN 90 

100 IF PEEK c764) =18 THEN FN$="C*" 

110 POKE 764,255:GRAPHICS 0*? " AN 

TIC'S GENERIC BASIC LOADER" 

120 ? ,"BY CHARLES JACKSON" 

130 POKE 10592,DPL* TRAP 200 

140 ? * ? *? "Creating ";FN$*? "...plea 

se stand by." 

150 RESTORE * READ LN * LN=LN * DIN A$«LN) : 
C = 1 


BO 

YC 

DN 

BK 

NN 


CN 

UQ 

AR 

PU 

AL 


160 AR$ = ""* READ AR$ 

170 FOR X=1 TO LENCAR$> STEP 3*P0KE 75 
2,255 

180 LN=LN-1* POSITION 10,10*? " (Countdo 
wn. . .T-";INT cLN'10);"l 

190 A$cC,C)=CHR$cUALcAR$cX,X+2))) *C = C + 
1 * NEXT X * GOTO 160 

200 IF PEEK C195) =5 THEN ? *? *? "G3T00 

NANY DATA LINES!"*? "CANNOT CREATE FIL 
E!":END 

210 IF C < LN + 1 THEN ? *? "BTOO FEM DATA 
LINES!"*? "CANNOT CREATE FILE!"* END 
220 IF FN$="C«" THEN ? *? " Prepare ca 
ssette, press [RETURN)" 

230 OPEN ttl,0,0,FN* 

240 POKE 766,1*? ttl;A*;:POKE 766,0 
250 CLOSE «tl* GRAPHICS 0:? "■BOKilXaSfKMDa 


IK 

MO 


PN 


JN 


GH 


PM 


LG 


L5 


IP 


UZ 


NR 


EC 


HQ 


DD 


ZN 


CN 


AY 


1000 DATA 471 

1010 DATA 0490520480320660690840360400 
49044055052041061034000000000039101113 
102114103115104104116105105 
1020 DATA 1171061061181071071191081081 
20109109121110110122111111123112112000 
000037037000003042006045009 
1030 DATA 0480120120510150150540180180 
57021021060024024063027027066030030069 
033033072036036100034155049 
1040 DATA 0520490320660690840360400550 
53044049052056041061034000037037000074 
126076128078130080080132082 
1050 DATA 0821340840841360860861380880 
88140090090142092092144094094146096096 
000000097097000002041005044 
1060 DATA 0080470110110500140140530170 
17056020020059023023062026026065029029 
068032032071035035099034155 
1070 DATA 0490520500320660690840360400 
49052057044050050050041061034000038038 
000073125075127077129079079 
1080 DATA 1310810811330830831350850851 
37087087139089089141091091143093093145 
095095000000038036000001040 
1090 DATA 0040430070460100100490130130 
52016016055019019056022022061025025064 
028028067031031070088088098 
1100 DATA 0341550490520510320660690840 
36040050050051044050057054041061034000 
000000039101113102114103115 
1110 DATA 1041041161051051171061061181 
07107119108108120109109121110110122111 
111123112112000000000000000 
1120 DATA 1531531531531531531531530001 
54154154154154154154154154154154000088 
088088088088088088088088088 
1130 DATA 0880000341550490520520320660 
69084036040050057055044051055046041061 
034000000000000000000000000 
1140 DATA 0000000000000000000000000000 
00000000000000000000000000000000000000 
000000000000000000000000000 
1150 DATA 0000001481481481480001501501 
50000151151151151151000152152152152152 
000149149149149149000147147 
1160 DATA 147147147000034155 
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HT 

PL 

OR 

DN 

UG 

BN 


1 REN REAL-MORLD INTERFACE 

2 REN BY JOHN M. LITTLE 

3 REN Cc ) 1988, ANTIC PUBLISHING 

5 A600 = 0 * REN CHANGE TO A 1 FOR PORTB 0 
N AN ATARI 400'800 

6 IF NOT CA800=0 OR A800=l> THEN ? "T 
YPING ERROR LINE 5!B"*END 

10 GRAPHICS 2+16*? «6*? »6*? «6;" R 
EAL"*? **6 * ? »6; " MORLD"*? «6 * ? «6 ; " 
INTERFACE" 


LC 

OS 

KB 

GN 

XY 

NB 

GR 


12 RESTORE 7000:FOR X = 1664 TO 1761 * REA 

D BYTE * POKE X,BYTE:NEXT X * X = USRc1664) 

20 POKE 752,1 * REN KILL CURSOR 

30 REN DECLARATIONS 

50 DIN YN$(1) * LET ON = 0*OFF = 1 

60 PORTA = 54016* PACTL = 54018 * 0RIG = PEEK(5 

4018+A800) * C0N50L = 53279 

80 REN INITIALIZE CLOCK 

100 ? "HI" * POSITION 4,2*? "DO YOU MISH 
TO RESET THE CLOCK";*YN$=" "*INPUT YN$ 
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IN 

NN 

OZ 

MI 

MO 

CU 

YL 

AU 

RQ 

AL 

JB 

HT 


OY 

GU 

PQ 

UF 

UL 

UL 

UN 

BT 

XR 

QJ 

PB 

EO 

OP 

TJ 

XU 

JP 

RK 

YH 

UN 

KC 

NK 


110 IF A5C < YN$* < > 89 THEN IF A5C < YN$* < > 
121 THEN 130 JREM Y OR y 
120 GOTO 150 

130 IF ASC<YN$*<>78 THEN IF ASC<YN$*<> 
110 THEN 100*REM N or n 
140 GOTO 300 

150 ? "H" * POSITION 11,2*7 "BSOBmaHBnOflJ 
SBSBfflSQ":? :? s ? 

160 HOUR=0*MIN=0*SEC=0 

170 ? "Correct Hour <0-23* ";* TRAP 180*1 
NPUT HOUR*? 

180 ? "Correct Minute";:TRAP 190*INPUT 
MIN*? 

190 ? "Correct Second"TRAP 200*INPUT 
SEC 

200 ? "H":POSITION 13,2*? "SBmBIlflfflllBBB 

dobcs" 

210 POSITION 9,23:? "Press BOBED to co 
ntinue" 

220 POKE 18, MIN:POKE 19,SEC*P0KE 20,0: 
POKE 209,0:POKE 208,0:POKE 207,HOUR*X= 
USRC16641 

224 REM DISPLAY CLOCK 

230 POSITION 16,10:POKE 752,1 

231 T=PEEK<207*:IF T>9 THEN ? T;:? . 

; : GOTO 233 

232 ? "0"; : ? Ti :? "*"; 

233 T=PEEK<18*:IF T>9 THEN ? T;:? .. 

:GO TO 235 

234 ? ••0*'; : ? T; : ? " « "; 

235 T=PEEK<19**IF T>9 THEN ? T:GOTO 24 
0 

236 ? "0";:? T 

240 IF PEEK<C0N50L*=7 THEN 230 
270 REM MAIN PROGRAM 

300 ? "H" : POKE 710,0 : POKE 82,1*REM SET 
UP SCREEN 

320 REM CONFIG. PORT FOR OUTPUT 

340 POKE PACTL + A800,ORIG-4:POKE PORT A + 

A800,255 : POKE PACTL+A800,ORIG 

360 REM GET TIMING PARAMETERS 

380 GOSUB 880 

390 IF TIMEON=0 THEN 1260:REM MANUAL 0 

PERATION 

400 GOSUB 1110 

403 REM START TIMING 

410 POSITION 5,23*? -Press any Key to 
besin tiMine"; * POKE 764,255:P0KE 752,1 

411 IF PEEK<764* = 255 THEN GOSUB 840:GO 
SUB 1410:G0T 0 411 

412 POSITION 5,23:? •• 

• t • 


RP 

OP 

UP 

OT 

AO 

OE 

OP 

ZK 

PX 

OH 

CJ 

UN 

HX 

UT 

PU 

CB 

AH 

BG 

JB 


750 REM UAIT FOR HOURS, MINS, SECS TO 
COUNT DOUN 

770 GOSUB 84 0 * IF PEEK<CQNSOL*<7 THEN 1 
410 

780 IF ENDHQUR>PEEK<207* THEN 770 

790 GOSUB 84 0:IF PEEK<C0N50L*<7 THEN 1 

410 

800 IF ENDMIN > PEEK <18* THEN 790 

810 GOSUB 840 * IF PEEK<C0N50L*<7 THEN 1 

410 

820 IF END5EC>PEEK<19* THEN 810 
830 RETURN 

835 REM DISPLAY TIME 

840 POSITION 16,1 

841 T=PEEK<207* : IF T>9 THEN ? T;*? " *" 
;:GOTO 843 

842 ? "0"; : ? T; : ? .. 

843 T=PEEK<18* : IF T>9 THEN ? T;:? "«"; 

:G 0 T 0 845 

844 ? "0"; : ? T; : ? " « "; 

845 T = PEEK<19* * IF T>9 THEN ? T:GOTO 84 
7 

846 ? "0"; * ? T 

847 RETURN 

860 REM INPUT DATA SUBROUTINES 

880 POSITION 1,6:? "- 

— — — — — — — — — — — — — — — — — 


RE 881 POSITION 7,7*? "PRESS BaOfflBtJ] TO DI 
SREGARD . " « ? 

KN 882 POSITION 1,8:? "- 


PJ 

CR 

OJ 

FA 

AO 

SM 

KT 


890 TRAP 940 

900 ? "EARLIEST HOUR TO TURN UATER ON" 
;:INPUT EARLYHOUR 
910 TRAP 930 

920 ? "LATEST HOUR TO TURN UATER ON";* 

INPUT LATEHOUR:GOTO 980 

930 ? "□"*? "HI" : GO TO 880 

940 EARLYHOUR=0:LATEHOUR=24 

950 ? "H":POSITION 1,2*? "- 


KT 

EN 

CE 


GL 

EK 


960 POSITION 1,3:? "0 NO EARLIEST AND 
LATEST START TIMES ■" 

970 ? "- 

-••: GOTO 1010 

980 ? "H":POSITION 1,2:? "- 

-•• : POSITION 1 

,3*? "BEARLIEST START:";EARLYHOUR; 

990 POSITION 20,3:? "B LATEST START*"; 
LATEHOUR;" B" 

1000 ? "- 


HR 

YA 

UZ 

TC 

TH 

NF 

EL 

OK 

DX 

ZU 


OB 

TO 


EG 


GX 

TY 

UN 


BX 

SS 

RD 

JN 

LE 

RL 


420 REM IS CURRENT TIME BETUEEN EARLIE 
ST AND LATEST START TIMES? 

440 IF EARLYHOUR>PEEK<207* THEN GOSUB 

1410 * GOSUB 840:GOTO 440 

450 IF LATEHOUR*PEEK<207* THEN 500 

460 GOSUB 84 0 * GOSUB 1410:GOTO 440 

480 REM RELAY OPERATION LOOP 

500 LET ONOFF = ON * 5EC = SEC0N* MIN = MINON * H 

R = HRON * GOSUB 600 

510 LET ONOFF=OFF*SEC=SECUFF*MIN=MINOF 
F *HR = HROFF:GOSUB 600 
520 GOTO 440 

580 REM TIMING SUBROUTINE 
600 5TARTMIN5 = PEEK<18* * START5EC5 = PEEK< 
19* * STARTHOUR = PEEK<207* * REM GET CURREN 
T TIME 

610 POKE PORTA+A800,ONOFF:REM CLOSE OR 
OPEN RELAY 

620 REM ADJUST COUNTER IF **OF SECS TO 
COUNT + t*OF SECS CURRENTLY ON CLOCK > 

59 

640 IF SEC+STARTSEC5>59 THEN STARTMINS 
= 5TARTMINS + 1* LET ENDSEC=SEC+STARTSECS- 

60 * GOTO 690 

650 LET END5EC=SEC+5TARTSECS 

670 REM ADJUST COUNTER IF »OF SECS TO 

COUNT + »OF SECS CURRENTLY ON CLOCK > 

59 

690 IF MIN+STARTMINS>59 THEN STARTHOUR 
= 5TARTH0UR + 1* LET ENDMIN=MIN+STARTMINS- 

60 * GOTO 705 

700 LET ENDMIN=MIN+5TARTMINS 
705 LET ENDH0UR=HR+5TARTH0UR 
710 IF ENDHOUR < 24 THEN 770 
720 LET ENDH0UR=ENDH0UR-24 

729 REM UAIT FOR CURRENT HOUR TO CROSS 
MIDNIGHT AND BECOME "0". 

730 IF PEEK<207* >ENDHOUR THEN GOSUB 84 
0:GOSUB 1410 * GOTO 730 


HU 

LG 

MT 

IL 

MU 

OF 

HX 

GP 

QB 

PJ 

BU 

UA 

AB 

PQ 

MR 

UN 

ZH 

OD 

KH 

UK 

PZ 

RT 

GP 

HU 

PR 


JA 


1010 ? * ? "press maaramui 3 times to byp 

ASS TIMER.":? 

1020 HRON=0*MINON=0*SECON=0 

1021 TRAP 1030 

1022 ? "NUMBER OF HOURS UATER UILL BE 
ON"; 

1023 INPUT HRON 
1030 TRAP 1060 

1040 ? "NUMBER OF MINUTES UATER UILL B 
E ON"; 

1050 INPUT MINON 
1060 TRAP 1090 

1070 ? "NUMBER OF SECONDS UATER UILL B 
E ON"; 

1080 INPUT SECON 

1090 TIMEON=HRON+MINON+5EC0N*REM For t 
est in line 390 
1100 RETURN 

1110 HROFF=0*MINOFF=0*5ECOFF=0 

1111 TRAP 1120 

1112 ? :? "NUMBER OF HOURS UATER UILL 

BE OFF"; 

1113 INPUT HROFF 
1120 TRAP 1150 

1130 ? "NUMBER OF MINUTES UATER UILL B 
E OFF"; 

1140 INPUT MINOFF 
1150 TRAP 1180 

1160 ? "NUMBER OF SECONDS UATER UILL B 
E OFF"; 

1170 INPUT 5EC0FF 

1180 TIME0FF=HR0FF+MIN0FF+5EC0FF*REM F 
or test in line 1190 

1190 IF TIMEOFF = 0 THEN ? "B";"H"*? "Y 
u Must specify an 'OFF 1 period in 
rder to use the tiwer .":POP :GOTO 380 
1200 ? : ? "fflaODHM] TO STOP CYCLE UITH U 
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IP 

AJ 

SQ 

PX 

QG 

GB 

BT 

MM 

GQ 

IM 

BD 

DY 

FC 

IT 

UC 

BD 

DF 


ATER ON. " : ? "@@B@[3H TO STOP CYCLE WITH 
WATER OFF." 

1210 ? "@110130 TO RE-START PROGRAM":? " 
WITHOUT RESETTING CLOCK." 

1220 RETURN 

1240 REM MANUAL ON-OFF ROUTINES 
1260 LET ONOFF=ON 
1270 TRAP 1270 

1280 ? :? "Do you wish to turn the wat 

er on"; 

1290 GOSUB 1350 
1300 TRAP 1300 
1310 LET ONOFF=OFF 

1320 ? "Do uou wish to turn the water 
off"; 

1330 GOSUB 1350 
1340 GRAPHICS 0:END 
1350 YN$ = " ":INPUT YN$ 

1360 IF flSCcYNSX>89 THEN IF ASC (YN$) < 
>121 THEN 1390:REM Y OR y 
1370 POKE PORTA+A800,ONOFF 
1380 RETURN 

1390 IF A5CcYN$X>78 THEN IF ASC(YN$)< 
>110 THEN POP : G 0 TO 65536:REM N or n.. 


AH 

MF 

LJ 


AL 


YP 

AT 

CJ 


MX 


QT 


RY 


.65536 IS ERROR TO TRAP 

1400 RETURN 

1405 REM EARLY EXIT 

1410 IF PEEK(CONSQL)=3 THEN POKE PORTA 
+ A80 0, ON * POP :POSITION 1,20=POKE 752,0 
: END 

1420 IF PEEK(C0N50L)=5 THEN POKE PORTA 
+ A800,OFF:POP : POSITION 1,20:POKE 752, 
0 : END 

1430 IF PEEK(CONSOL)=6 THEN POP :GQTO 
300 

1440 RETURN 

7000 DATA 104,162,6,160,139,169,7,32,9 
2,228,96,230,208,208,2,230,209,165,208 
,201,15,144,26,165,209 

7010 DATA 201,3,144,20,169,0,133,208,1 
33,209,165,20,201,60,144,6,169,1,133,2 
0,208,12,230,20,165 

7020 DATA 20,201,60,144,40,169,0,133,2 
0,230,19,165,19,201,60,144,28,169,0,13 
3,19,230,18,165,18 

7030 DATA 201,60,144,16,169,0,133,18,2 
30,207,165,207,201,24,144,4,169,0,133, 
207,76,98,228 


SHADOWS AND REFLECTIONS FOR YOUR 8-BIT GRAPHICS 

HARD-WIRED RAY TRACING 

Article on page 41 


LISTING 1 


Don't type the^*N^ 
TYPO II Codes! 


JU 

UQ 

QH 

ZP 

CP 

BG 

MU 

MN 

JG 

TP 

BG 

HX 

DC 

PA 

RU 

ZU 

UC 

GO 

KC 

GH 

EH 

MQ 


10 REM HARD-WIRED RAY TRACING 
20 REM BY MICHAEL BJORKMAN 
30 REM (01988, ANTIC PUBLISHING 
40 BRKX=(PEEK(53279X>3) 

1000 GOSUB 1660 

1010 FOR 5Y=1 TO 191 

1020 FOR SX=0.5 TO 318.5 STEP 2 

1030 TRAP 1340:SXSCR=c5X-0.5)'2:5YSCR= 

SY 

1040 POKE 559,0:IF PEEK(63279)=3 THEN 
POKE 559,OLDUALUE 
1050 REM SPHERE PIXEL? 

1060 Al=(SX-UX)*C5X-UX)+(5Y-UY)*cSY-UY 
)+UZ*UZ 

1070 Bl=2*((5X-UX)*(UX-CX)+(5Y-UY)*(UY 
-CY)-UZ*(UZ-CZ)) 

1080 Cl=(UX-CX)*cUX-CX)+cUY-CY)*cUY-CY 
)+<UZ-CZ)*(UZ-CZ)-R*R 

1090 ARG=B1*B1-4*A1*C1 : IF ARG<=0 THEN 
1250 

1100 REM SPHERE PIXEL 

1110 5CALE1= c-Bl + SQRcARG))s(2*A1) 

1120 DX=SCALEi*(SX-UX):DY=5CALE1*(5Y-U 
Y) : DZ=-5CALE1*UZ 

1130 RX = DX + UX-CX:RY = DY + UY-CY * RZ=DZ+UZ- 
CZ 

1140 DDOTN=(DX*RX+DY*RY+DZ*RZ>'R 
1150 SCALE2= (191-CY-RY)'(DY + 2*DD0TN*RY 
' R) 

1160 IF SCALE2 > =0 THEN 1220 

1170 REM REFLECTED RAY INTERSECTS ROOF 


CF 

PP 

UF 

XU 

GR 

WO 

KU 

UF 

NG 

DO 

HJ 

ZJ 

UP 

OU 


1180 SCALE2=(0-CY-RY)'(DY+2*DD0TN*RY'R 
) 

1190 DHTEMP=DHROF:5MTEMPL0=5MR0FL0:SMT 

EMPHI=5MR0FHI 

1200 GOSUB 1420:GOTO 1330 

1210 REM REFLECTED RAY INTERSECTS FLOO 

R 

1220 DHTEMP=DHFLR:5MTEMPL0 = 5MFLRL0 * SMT 

EMPHI=SMFLRHI 

1230 GOSUB 1420:GOTO 1330 

1240 REM NOT SPHERE PIXEL 

1250 DX=SX-UX*DY=SY-UY:DZ=-UZ 

1260 IF SY<=HORIZON THEN 1300 

1270 A= (191-UY)'DY* REM BELOW HORIZON 

1280 DHTEMP=DHFLR : SMTEMPL0 = 5MFLRLO : SMT 

EMPHI = 5MFL RHI 

1290 GOSUB 1550:GOTO 1330 

1300 A= (0-UYxDY : REM ABOUE HORIZON 

1310 DHTEMP=DHROF:SMTEMPL0=5MR0FL0:SMT 


CA 

NS 

YD 

Y5 

DO 

LK 

MR 


HM 


ST 

FP 

CJ 

NS 


UU 

KL 

PZ 

NH 

AP 

UO 

SC 

EQ 

JY 

MQ 

GO 

RP 

UC 


KT 

QH 

NP 

ZU 

UU 


SK 

EY 


AU 


EMPHI=5MR0FHI 
1320 GOSUB 1550 

1330 POKE 77,0* REM KILL ATTRACT MODE 

1340 NEXT 5X 

1350 NEXT SY 

1360 REM SAUE SCREEN 

1370 LOD$ (3,3)=CHR$(11) 

1380 5L0C=PEEK(88)+PEEK(89)*256:CLOSE 
ttUOPEN «1,8,0,"D:TRACE.PIC":GOSUB 800 
0 

1390 X = U5R(ADR(LOD$),5L0C,7680):PUT «1 

,PEEK(712):FOR X=708 TO 710:PUT »1,PEE 

K(X) : NEXT XYLOSE «1 

1400 GRAPHICS 0:? "DONE!":END 

1410 REM REFLECTION ROUTINE 

1420 DRX=DX-2*DD0TN*RX/R:DRY=DY-2*DD0T 

N*RY'R:DRZ=DZ-2*DD0TN*RZ'R 

1430 FX=CX+RX+SCALE2*DRX+FXDISP:FY=CY+ 

RY+SCALE2*DRY : FZ=CZ+RZ+5CALE2*DRZ+FZDI 

SP 

1440 FXSCR= ( (FX-INT(FX'318.5)*318.5)-0 

.5)'2:FZSCR = 191- (FZ-INT(FZ'191)*191) 

1450 IF FXSCR<=0 THEN FX5CR=0 

1460 IF FXSCR> = 160 THEN FXSCR = 160 

1470 IF FZSCR<=0 THEN FZSCR=0 

1480 IF FZ5CR>=191 THEN FZSCR=191 

1490 POKE 561,DHTEMP:POKE 88,SMTEMPL0: 

POKE 89,5MTEMPHI 

1500 LOCATE FXSCR,FZSCR,BYTE 

1510 POKE 561,DHSCR s POKE 88,5M5CRL0:PO 

KE 89,SMSCRHI 

1520 IF YDM THEN BYTE = BYTE-1«IF BYTE< = 
0 THEN BYTE=0 

1530 COLOR BYTE.'PLOT 5 X SCR , S YSCR * FL AG = 
1:RETURN 

1540 REM FLOOR OR CEILING ROUTINE 
1550 FX=UX+A*DX+FXDISP:FY=UY+AmDY:FZ=U 
Z + A**DZ + FZDISP 

1560 FX5CR=((FX-INT(FX'318.5)«318.5)-0 

. 5)'2:FZSCR = 191- (FZ-INT(FZ✓191)^191) 

1570 IF FXSCR< =0 THEN FXSCR = 0 

1580 IF FXSCR> = 160 THEN FXSCR = 160 

1590 IF FZSCR< =0 THEN FZ5CR=0 

1600 IF FZSCR>=191 THEN FZ5CR=191 

1610 POKE 561,DHTEMP * POKE 88,SMTEMPL0: 

POKE 89,SMTEMPHI 

1620 LOCATE FXSCR,FZSCR,BYTE 

1630 POKE 561,DHSCR:POKE 88,SMSCRLO *PO 

KE 89,SMSCRHI 

1640 COLOR BYTE * PLOT SXSCR,5YSCR*RETUR 
N 
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LB 

YK 


1650 REM ENTER UIEUPOINT COORDINATES 
1660 GOSUB 7500*TRAP 1690:UX=160:UY=96 
* UZ=-450 

PJ 1665 POSITION 8,5:? - Viewpoint Coordi 
nates : f( : POSITION 7,6*? "(Uhere are you 
standing?)" 

HT 1670 ? :? ••Input UX, U Y, UZ « •• : ? •• 0<UX<3 

19-*? •• 0 < U Y < 191'* : ? •• UZ < 0- s GOSUB 8000 


JQ 

MT 


UP 

AU 

NX 

zz 

CD 

TP 

DD 


TJ 

QE 

QU 

FC 

UX 

ZN 

YO 

LF 


RG 

NI 

YU 

YK 

HO 

ZE 

ZC 

BU 

HS 

TI 

RS 


1680 INPUT UX,UY,UZ 

1690 IF UX < 0 OR UX >319 OR UY<0 OR UY>1 
91 OR UZ > 0 THEN ? -Coord ErrorQE":GOTO 
1660 

1700 REN SPHERE COORDINATES 
1705 TRAP 1740:CX=107:CY=64:CZ=95.5 
1710 GOSUB 7506 s POSITION 3,5:? -Uhere 
is the center of the sphere?" 

1715 POSITION 13,7:? ■• c CX, CY & CZ )” 
: ? 

1720 INPUT CX,CY,CZ 

1730 REN CIRCLE RADIUS 

1740 R = INTCCY'2) * TRAP 1760:? ••■BBS 

Radius of the Sphere"*? *? "C0-";CY;") 

1750 INPUT R 

1760 TRAP 1800 * IF CY-R<0 OR CY+R>191 T 
HEN ? -Coord ErrorQQ-:GOTO 1705 
1770 FXDI5P = 0 : FZDI5P = 0 * GOSUB 7500*POSI 
TION 8,5*? -Input FXDISP, FZDISP*-:? 
1780 INPUT FXDISP,FZDISP 
1790 REN READ PIC FILE 

1800 TRAP 40000 *PICSIZE = 7680*GOSUB 218 
0 * REN INIT NL LOADER 

1810 DIN J*C18>,FILE*C18),FNANFLR*C18) 
,FNANROF* c18 J,MILOD*C342) 

1812 ? "Hfflfflffl Use the DINNING Featurec 
Y'N)-; * INPUT J*:IF NOT CJ*="Y- OR J* = 
"«'• OR J*=”n” OR J*=-N-) THEN 1812 
1814 YDN = 0 * IF J* = «Y” OR J*=«y- THEN YD 
N=1 

1820 ? -S FLOOR FILENANE- 
1830 GOSUB 2110 
1840 FNANFLR*=FILE* 

1850 ? -H CEILING FILENANE- 
1860 GOSUB 2110 
1870 FNANROF*=FILE* 

1880 REN LOAD FLOOR 

1890 POKE 106,PEEKC740):NENTOP=PEEKC10 
6 ) 

1900 GRAPHICS 15 + 16 * GOSUB 8000*DHFLR=P 
EEKC561J 

1910 SNFLRL0=PEEKC88J:SNFLRHI=PEEKC89) 
*SNFLR=SNFLRL0+256*SNFLRHI* POKE 5 5 9,34 


GA 

HS 

DE 

YA 

UX 

GU 

XA 

JJ 


1920 CLOSE ttl : OPEN ttl,6,0, FNANFLR* * INP 
UT ttl, MILOD* * CLOSE ttl 

1921 OPEN ttl, 4 ,0,FNANFLR*:IF MIL0D*C1S 
,17) =-062- THEN 1926 

1925 GOSUB 7000 * CLOSE ttl * GOTO 1940 

1926 X=USRCADRCL0D$>,SNFLR,PICSIZE):CL 
05E »1 

1930 REN LOAD ROOF 
1940 POKE 106,NENTOP-32 

1950 GRAPHICS 15+16*G0SUB 8000:DHROF=P 
EEKC561) 

1960 SNR0FL0=PEEKC88>:5NR0FHI=PEEKC89) 

:SNR0F=5NR0FL0+256*5NR0FHI* POKE 559,34 


JJ 

UZ 

KC 

AO 

LL 

LR 

XO 

RN 


1970 CLOSE ttl* OPEN ttl,6,0,FNAMROF**INP 
UT ttl,MILOD** CLOSE ttl 

1971 OPEN «1,4,0,FNAMROF**IF MIL0D*ci5 
,17* =-062- THEN 1976 

1975 GOSUB 7000 * CLOSE ttl:GOTO 1990 
19 76 X = USRcADR CLOD*),SNROF,PICSIZE) * CL 
05E ttl 

1900 REN ESTABLISH PLOTTING SCREEN 
1990 POKE 106,NEHTOP-64 

2000 GRAPHICS 15 + 16 * GOSUB 8000*DH5CR=P 
EEKC56H 

2010 5NSCRL0=PEEKC88>:SNSCRHI=PEEKC89) 
:SM5CR=SMSCRL0+256*5MSCRHI* POKE 5 5 9,34 


HN 

05 

HE 

HX 

LN 

TO 

LS 

BB 

AP 


2020 HORIZON=UY 
2030 REN SET COLORS 
2040 SETCOLOR 4,0,0 
2050 SETCOLOR 0,0,4 
2060 SETCOLOR 1,0,8 
2070 SETCOLOR 2,0,12 
2080 0LDUALUE=PEEKC559> 
2090 RETURN 

2100 REN GET PIC FILENANE 


TD 

YU 

UI 

LK 

PD 


AK 

UN 

HN 

UJ 

AE 

ZA 

OZ 

PI 

OC 

LI 

UN 

CA 

UC 

CE 

LY 


LE 


KC 

DR 

RS 


NX 

UO 

ZN 

JK 

KG 


IU 

AU 

RS 


2110 CLOSE ttls POKE 710,0:POKE 709,40*? 

-Insert disk into drive ttl, 

2120 ? - Press < re turn >'•;* INPUT J**OPE 
N ttl,6,0,-D**.?IC- 

2130 ? -H-:TRAP 2140:FOR N=0 TO 63:INP 
UT ttl,FILE* * POSITION 2 + 19»cCN'2)=INTcN 
'2)),INTCN"2> 1 ? FILE*) * NEXT N 
2140 TRAP 2110 < POP *CLOSE ttl 1 ? 1 ? -Ent 
er Filenane-j:INPUT FILE* 

2150 IF FILE*ci,2) < >”D «” AND FILE*ci,3 
*<>”D1«" AND FILE* cl, 3» < >-D2 * - THEN J* 
=FILE*:FILE*C1,23=-D«-*FILE*C3J=J* 

2160 TRAP 2240 * RETURN 

2170 REN NL SCREEN LOAD ROUTINE 

2180 DIN LOD* C28) 

2190 LOD* = -hQSIBRffihBUffihBTffihBYffihBXffiBS Uffl 

BB- 

2200 RETURN 

2230 REN ERROR NESSAGE 

2240 ? -DISK ERROR-:END 

7000 REN LOAD AN NI PICTURE 

7020 RESTORE 7060 

7030 FOR A=1536 TO 1556 

7040 READ B * POKE A,B 

7050 NEXT A 

7060 DATA 162,16,169,1,157,72,3,169,0, 

157,73,3,32,86,228,48,1,96,104,104,96 

7070 NILOD* = **hfflBBaSDBSDEDClDffiaiSaEffiaSDHffiaii 

□isanaa fflZEBcosmnDnmffiOffl0<nneBH- 

7080 NILOD* c55i=-HfflC1BfflHBHfflBfflaiin BIZJBfflHS 

□□□ B0HfflBaaDn BzaraHsaon nzBrnBrnaeBoanan 

a- 

7090 NILOD* C1151 =-DBaXanaCDQYaBaB B00E0^ 

□naraHfflj □araami Baraaa Bizamaa siziHmamaraEaraaffi 

B" 

7100 NILOD* C1751 =-0HDBOHBH^a0EIDafflaODHaaD 

aaarsiaH B0eafflaHBBBaBanaaaaaaaoaaaDa" 

7110 NIL0D*c228i=CHR*ci55> 

7120 nilod* c229i=-BmaeaRaaeaaBBcasapea 
anaBesaBDna*aDa/a[B@DfflfflffiaaBemnimanaBanane 
sasa- 

7130 NILOD* C291) =-EfflBBDUfflO (efflCICawnDeSa 
0HraamHBE8BBB BDSO® e DEICXIB e ® n00[3BB0[S 1 • 

7140 REN POKE 88,ADL0*P0KE 89,ADHI 
7160 A=USRCADRCNIL0D*)> 

7190 CLOSE ttl:GOSUB 8000*RETURN 

7500 ? “H—* POSITION 32,1*? -C319,0)-*P 

OSITION 30,22*? -C319,191)-:POSITION 1 

,22*? -C0,191*- 

7510 POSITION 1,1*? — c 0,0 ) — 

7520 RETURN 

8000 BRK=U5RcADRc-haflONhhDBQSapaSBaaB- 
>,BRKX) * RETURN * REN DISABLES BREAK UHE 
N ARG=1 


LISTING 2 


LJ 

UQ 

QH 

UD 

EU 

IJ 

PR 

UO 

RD 

PY 

TH 

UB 

NY 

KB 

PU 

LU 

BO 

YC 

DN 


10 REN HARD-HIRED RAY TRACING, LISTING 
2 

20 REN BY NICHAEL BJORKNAN 
30 REN cc>1986, ANTIC PUBLISHING 
35 REN CREATES LINES 2190, 7070-7100, 

7120-7130 & 8000 

40 REN CLINES 10-250 NAY BE USED MITH 
OTHER BASIC LOADERS IN THIS ISSUE. 

50 REN CHANGE LINE 70 AS NECESSARY.) 

60 DIN FN*c20),TENP*C20),AR*C93) :DPL = P 
EEKC10592) * POKE 10592,255 
70 FN*=-D*LINES.LST-*REN THIS IS THE N 
ANE OF THE DISK FILE TO BE CREATED 
80 ? -HUH sk or Bassette?- 1 * POKE 764,25 
5 

90 IF NOT CPEEKC764)=18 OR PEEKc764)= 
58) THEN 90 

100 IF PEEKC764)=18 THEN FN*=-C*- 

110 POKE 764,255 * GRAPHICS 0*? - AN 

TIC'S GENERIC BASIC LOADER- 

120 ? ,-BY CHARLES JACKSON- 

130 POKE 10592,DPL* TRAP 200 

140 ? :? * ? -Creating -;FN* * ? -...plea 

se stand by." 

150 RESTORE * READ LN * LN = LN * DIN A* cLN) * 
C = 1 

160 AR* = --* READ AR* 

170 FOR X = 1 TO LENCAR*) STEP 3 * POKE 75 
2,255 

180 LN=LN-1* POSITION 10,10*? - (Countdo 
wn . . . T-"; INT cLN'10) ; ••) 


continued on next page 
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BK 

mm 


CM 

UQ 


AR 

PU 

AL 


IU 

UB 


AY 


QV 


BA 


MU 


CE 


MS 


190 AScC,Ci=CHRScVALcARScX,X+2>>) *C = C + 
l:NEXT X•GOTO 160 

200 IF PEEKcl95)=5 THEN ? *? *? "BTOO 

MANY DATA LINES! M * ? "CANNOT CREATE FIL 
E ! " * END 

210 IF C < LN + 1 THEN ? *? "ETOO FEW DATA 
LINES!"*? "CANNOT CREATE FILE!"* END 
220 IF FN*="C*" THEN ? *? " Prepare ca 
ssette, press (RETURN)" 

230 OPEN **1,8,0, FNS 

240 POKE 766,1*? «tl;A$;*POKE 766,0 
250 CLOSE »1* GRAPHICS 0*? "■HfflfflHBaOElIHi 

•i 

1000 DATA 560 

1010 DATA 0500490570480320760790680360 

61034104169007141082003104141085003104 

141084003104141089003104141 

1020 DATA 0880031620160320862280960341 

55055048055048032077073076079068036061 

034104162016169007157066003 

1030 DATA 1692321570680031690001570690 

03169001157072003169000157073003169000 

133224032000006165224201007 

1040 DATA 2400132010132400162010262400 

60230224024144234034155055048056048032 

077073076079068036040053053 

1050 DATA 0410610341652321332340241442 

44165232141196002230224032000006165232 

141197002230224032000006165 

1060 DATA 2321411980022302240320000061 

65232141199002230224032000006165232141 

200002024144196169000133236 

1070 DATA 1330341550550480570480320770 

73076079068036040049049053041061034230 

165088133224133228165089133 


YQ 


YO 


MB 


MN 


KE 


AM 


UZ 


DO 


ON 


LO 


NQ 


RP 


1080 DATA 2251332290320000061921362400 

94169000133227165232041128133235165232 

041127133226208014032000006 

1090 DATA 1652321332270320000061652321 

33226198226165235208028032000034155055 

049048048032077073076079068 

1100 DATA 0360400490550530410610340061 

65232133233024144047198226169255197226 

208245198227169255197227208 

1110 DATA 2372401830320000061652321332 

33024144019198226169255197226208238198 

227169255197227208230240034 

1120 DATA 1550550490500480320770730760 

79066036040050050057041061034096169002 

197234240082240201165233160 

1130 DATA 0001452240241690801012241332 

24169000101225133225230230169096197230 

208047169001197236208024024 

1140 DATA 1690011012281332281332241690 

00133236133230101229133229133034155055 

049051048032077073076079068 

1150 DATA 0360400500570490410610342250 

24144017230236024169040101228133224169 

000133230101229133225165235 

1160 DATA 2401762081491652331600001452 

24024169001101224133224169000101225133 

225165235240151208229034155 

1170 DATA 0560480480480320660820750610 

85083082040065068082040034104169000133 

077104104201000240007169112 

1180 DATA 1330161410142100960340410440 

66082075088041058082069084085082078032 

058082069077032068073083065 

1190 DATA 0660760690830320660820690650 

75032087072069078032065082071061049155 


NEW WAY TO SPEED UP YOUR BASIC PROGRAMS 


EQUIVALENCE 


Article on page 44 


LISTING 1 


Don’t type the 
TYPO II Codes! 


Pfl 

JB 

QH 

AH 

UL 

EZ 

BE 

JT 

TH 

SZ 

QO 

OZ 

FU 

QU 

BG 

TP 

RA 

ZU 

UZ 

JU 

YM 

OR 

SZ 

EA 

FR 

QZ 

KQ 

BS 

KH 

SD 

AS 

OS 

TZ 

JD 

DI 

GN 

MT 

UE 

GL 


10 REM SOUND EQUIVALENCE 
20 REM BY DOUG UHITE 
30 REM cc * 1988, ANTIC PUBLISHING 
48 DIM 5$C0> 

50 DIM U*C20> 

60 DIM CH$ €256) 

70 REM 

80 VUTST=PEEKC134)+256*PEEKC13S) 

0 ? 

100 STARP=PEEKC140)+256*PEEKC141) 

110 REM 

120 SUNUM=0 * REM S* IS UARIABLE tt 0 
130 REM IN THE VARIABLE NAME TABLE 
140 REM 

150 REM CALCULATE OFFSET OF 
160 REM FREQ. OF AUDIO CH.«0 
170 REM 

180 FREQ=53760 
190 OFFSET=FREQ“STARP 
200 A0FFSET2=INTC0FFSET'256) 

210 A0FF5ET1=0FF5ET-256*A0FFSET2 
220 REM 

230 VUL0C=VUT5T + cSVNUM**8 
240 POKE VVLOC+2,A0FF5ET1 
250 POKE VULOC+3,A0FFSET2 
260 REM 

270 REM AFTER THE OFFSET CHANGE 
280 REM 5$cl,1>=AUDF1 5$c2,2)=AUDC1 
290 REM SSC3,3>=AUDF2 
300 REM S$C5,5>=AUDF3 
310 REM 5$ (7,7*=AUDF4 
320 REM 

330 ? "H"s? " SOUND EQUIVALENCE D 

EMO" 

340 ? *? 

OL DATA" 

350 FOR 1=1 TO 255 STEP 2 
360 CHS cl,I>=CHRSC255-H 
370 V = V - 0.33 * IF V<1 THEN V = 12 
380 CHS cl + 1,1 + 1)=CHRSC160 + INT cV* » 

390 NEXT I 


5S (4,4i =AUDC2 
5S C6,6)=AUDC3 
5Sc8,8>=AUDC4 


'FILLING CHS UITH SOUND CONTR 


QP 

UV 

NS 

HM 

YA 

CR 

CR 

JK 

FA 

OK 

LR 

NS 

DV 

HZ 

GD 

NG 

RC 

XD 

KR 

VY 

MV 

FT 

CN 

IE 

LC 

MU 

JK 

BS 

NN 

ON 


400 REM 

410 ? *? *? "CHARACTERS IN CHS ARE CON 

VERTED INTO" 

420 ? "FREQUENCY, DISTORTION, & VOLUME 

430 ? "PARAMETERS FOR THE SOUND COMMAN 
D" 

440 ? "WITHOUT USING A POINTER STRING. 

• • 

450 ? 

460 FOR LOOP=l TO 2 
470 ? "ITERATION » "iLOOP 
480 FOR 1=1 TO 248 STEP 2 
490 FOR N=0 TO 3 

500 F = ASCcCH$cl,I>) *X = ASC (CHScl + 1,1 + 1) 

i 

510 D = INT CX'16* *V = X-16*INT cX'16* 

520 SOUND N,F,D,V 
530 NEXT N 
540 NEXT I 
550 NEXT LOOP 
560 REM 

570 ? *? * ? "NOW USING A POINTER STRIN 

G" 

580 ? *? "CHS SUBSTRINGS ARE ASSIGNED 

INTO SS." 

590 ? "SS IS STORED IN THE SAME MEMORY 
• • 

600 ? "LOCATIONS AS THE SOUND CONTROL 

610 ? "REGISTERS." 

620 ? 

630 SOUND 0,0,10,4*5OUND 1,0,10,4 

640 SOUND 2,0,10,4*SOUND 3,0,10,4 

650 FOR LOOP=l JO 10 

660 ? "ITERATION » ";LOOP 

670 FOR 1 = 1 TO 249 STEP 2 *SS = CHSd,1 + 7 

) * NEXT I 

680 NEXT LOOP 

690 END 
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LISTING 2 


HI 

JB 

QH 

RU 

OT 

DY 

QU 

LE 

BE 

QU 

UP 

US 

QO 

QE 

GI 

TS 

CX 

OY 

XR 

TU 

HJ 

TA 

QP 

AK 

RA 

TU 


RI 

QR 

TH 

FM 

ET 

IB 

QU 

AM 

LG 

IM 

R€ 

NB 

JF 

UP 

LI 

OZ 

QU 

TD 

FD 

UZ 

OB 

LZ 

PL 

MQ 

QS 

DU 

QU 

NB 

RA 

BH 

RE 

LR 

IL 

EE 

KK 

PO 

GX 

PY 

AI 

GG 

DD 

RF 

DD 

RJ 

LD 


YC 

PZ 

YO 

DC 

RE 

LR 

UE 

HF 

QT 

KE 

QX 


10 REM STRING EQUIUALENCE # LISTING 2 

20 REM BY DOUG UHITE 

30 REM cc >1988, ANTIC PUBLISHING 

40 ? "B"i? •• STRING EQUIUALENCE D 

EMO" 

50 ? * ? "INPUT ARRAY SIZE c < 4000 > 

60 INPUT ASIZE 
65 IF ASIZE>3999 THEN 50 
67 IF ASIZE<10 THEN A5IZE=10 
70 REM 

80 DIM SSCD,M<ASIZE> 

90 DIM U$c20> 

100 DIM DEL AYS CU 
110 REM 

120 REM . FIND MEMORY LOCATIONS 
130 REM . FOR THE STRING AND THE 
140 REM . ARRAY THAT ARE TO BE 
150 REM . EQUIUALENCED. 

160 REM 

170 UNTST=PEEKci30>+256*PEEKci31) 

180 UNTEND=PEEKC132>+256*PEEKC133>“1 
190 UUTST=PEEKC134>+256*PEEKC135> 

200 5TARP = PEEKC14 0> +256*PEEKC141> 

210 REM 

220 US = *'SS" : REM . THE DATA •STRING• 

230 G05UB 2000 
240 SUNUM=UNUM 
250 REM 

260 U$ = ,, M C": REM . THE DATA 'ARRAY* 

270 GOSUB 2000 

280 AUNUM=UNUM 

290 A0FF5ETL0=0FF5ETL0 

300 A0FF5ETHI=0FFSETHI 

310 ADIM1L0=UDIM1L0:ADIM1HI=UDIM1HI 

320 ADIM2L0 = UDIM2L0: ADIM2HI = UDIM2HI 

330 REM 

340 REM . REDIMENSION THE STRING & 

350 REM . SET THE STRING OFFSET 
360 REM . EQUAL TO THE ARRAY OFFSET 
370 REM 

380 FIR5TDIM=ADIM1L0+256*ADIM1HI 
390 5EC0NDIM=ADIM2L0+256*ADIM2HI 
400 S5IZE=6*FIR5TDIM*5EC0NDIM 
410 HBYTE=INTCS5IZE'256> 

420 LBYTE=SSIZE-256*HBYTE 
430 REM 

440 UUL0C=UUT5T+cSUNUM>*8 
450 POKE UULOC+2,AOFFSETLO 
460 POKE UULOC+3,AOFFSETHI 
470 POKE UULOC+4,LBYTE 
480 POKE UULOC+5,HBYTE 
490 POKE UULOC+6,LBYTE 
500 POKE UULOC+7,HBYTE 
510 REM 

520 ? :? "FILL Mo UITH **' S 1 TO ASIZE 

• • 

530 REM 

540 FOR 1=0 TO ASIZE:MCI>=IsNEXT I 
550 REM 

560 ? :? "URITE Mo TO DISK" 

570 REM 
580 CLOSE **1 

590 OPEN **i,8,0,"D1* ARRAY•DAT" 

600 POKE 18,0* POKE 19,0:POKE 20,0 
610 FOR 1=0 TO ASIZE 
620 N=MCI> 

630 ? **1;N 

635 REM . FOR TURBO BASIC, USE: 

640 REM XPUT **1,N 
650 NEXT I 

660 GOSUB 1500:REM GET TIME 
670 REM 

680 ? :? "URITE SS TO DISK" 

690 REM 
700 CLOSE **l 

710 OPEN **1, 8,0, "D1 : STRING • DAT" 

720 POKE 18,0:POKE 19,0:POKE 20,0 
730 ? **1;SS 

735 REM . FOR TURBO BASIC, USE: 

740 REM BPUT **1, ADR cSS> , 5SIZE 
750 GOSUB 1500 : REM GET TIME 
760 REM 
770 CLOSE **1 

790 INPUT DELAYS 
800 REM 

810 7 : ? "FILL Mo UITH ONES" 

820 REM 


EM 

OG 

DD 

GU 

RH 

YQ 

UX 

QU 

EJ 

NA 

TZ 

DC 

GT 

RG 

UE 

HF 

RM 

HU 

EM 

BD 

IF 

UA 

AU 

HX 

UQ 

OP 

Cl 

RJ 

ER 

QQ 

MR 

IH 

EX 

FN 

IQ 

RH 

BF 

JK 

UC 

NY 

EY 

QU 

IH 


BC 

IJ 

OR 

SL 

SH 

AY 

ME 

NU 

YT 

ZO 

FN 

BA 

KN 

IA 

OB 

SB 

TU 

LH 

UC 

S5 

RL 

FR 

HZ 

SZ 

IF 

HH 

AO 

UU 

UZ 

5P 

YN 

UD 

JQ 

AH 

ZQ 

LG 

AZ 

TF 

CD 

AQ 


830 POKE 18.0:POKE 19,0:POKE 20,0 
840 FOR 1 = 0 TO ASIZE:M Cl> =1:NEX T 1 
850 GOSUB 1500:REM GET TIME 
860 GOSUB 1600:REM PRINT Mcl TO 5> 

870 REM 

880 ? * 7 "FILL M« UITH 3'S" 

890 7 "BY COPYING SUBSTRINGS IN S*" 

900 REM 

910 POKE 18,0:POKE 19,0:POKE 20,0 
920 M C0J =3 * REM Mc0> = S*cl,6> 

930 SSC7>=S«C1> 

940 GOSUB 1500:REM GET TIME 

950 GOSUB 1600:REM PRINT MCI TO 5» 

960 REM 

970 7 :? • *• ■ 

980 INPUT DELAYS 
990 REM 
1000 REM 

1010 7 :? "REFILL Mo UITH DATA BY " 

1020 7 "READING 'D1:ARRAY.DAT• INTO Me 
) " 

1030 REM 

1040 OPEN **1,4,0, "D1 : ARRAY • DAT" 

1050 POKE 18,0:POKE 19,0:POKE 20,0 
1060 FOR 1=0 TO ASIZE 
1070 INPUT *tl; N 

1075 REM . FOR TURBO BASIC, USE: 

1080 REM *GET **1,N 
1090 MCIJ=N 
1100 NEXT I 

1110 GOSUB 1500:REM GET TIME 
1120 CLOSE **1 
1130 REM 

1140 7 :? "REFILL Mo UITH DATA BY " 

1150 7 "READING 'D1:STRING.DAT• INTO 5 

1160 REM 

1170 OPEN **1,4,0, "D1 : STRING . DAT" 

1180 POKE 18,0:POKE 19,0:POKE 20,0 
1190 TRAP 1220:1=0 
1200 GOSUB 3000:REM CIO METHOD 
1205 REM . FOR TURBO BASIC, USE: 

1210 REM BGET **1, ADR cSS> , 55IZE 
1220 GOSUB 1500:REM GET TIME 
1230 GOSUB 1600:REM PRINT Mel TO 5> 
1240 CLOSE **1 
1250 END 

1500 REM $ GET TIME 
1510 REM 

1520 SEC= CPEEKC20)+256*PEEKci9>>'60 
1530 7 :? INTcl000*5EC>'1000; 

1540 7 " SECONDS" 

1550 RETURN 

1600 REM $ PRINT Mel TO 5> 

1610 7 

1620 FOR 1=1 TO 5 

1630 7 "M C'jli") = ”;MCI> 

1640 NEXT I 
1650 RETURN 

2000 REM £ FIND UARIABLE ** 

2010 REM 

2020 J = 0:UNUM=-1 

2030 FOR I = UNTST TO UNTEND 

2040 CH=PEEKcl> 

2050 J = J + 1 

2060 IF CH >128 THEN CH = CH-128:UNUM = UNU 
M + l 

2070 IF CHRSCCH><>UScJ,THEN J=0:GOT 
0 2090 

2080 IF J=LENCU$> THEN 2100 
2090 NEXT I 
2100 REM 

2110 REM FIND UARIABLE LOCATION 
2120 REM 

2130 UUL0C = UUT5T+ CUNUM>*8 
2140 0FF5ETL0=PEEKcUUL0C+2> 

2150 0FFSETHI=PEEKcUUL0C+3> 

2160 UDIMlL0=PEEKcUUL0C+4> 

2170 UDIM1HI=PEEKCUUL0C*5> 

2180 UDIM2L0=PEEKcUUL0C+6> 

2190 UDIM2HI=PEEKcUUL0C+7> 

2200 7 :? "US = ";US;** UNUM = ";UNUM 

2210 RETURN 

2999 REM CIO METHOD 

3000 AD = ADR cSSi :ADHI = INT(fiD/256) : ADLO = 
ADADHIM256 

3010 1=848:POKE I+2,7:P0KE I+4,ADLO:PO 
KE 1+5,ADHI:POKE I+8,255:P0KE 1+9,255 
3030 N = USR CADR c«-hhhQLUm"> , 16> 

3040 N=PEEKcI+9i^256+PEEKcl+8> 

3050 RETURN 
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FRIENDLY QUIZ THAT KIDS LIKE USING 


SPELLING FLASHCARDS 


LISTING 1 


Don’t type the^s^ 
TYPO II Codes! 


FJ 

PY 

OH 

OK 


LK 

XP 

LM 

ZI 

AJ 

ZF 

XI 

RQ 

UU 

I4B 

PE 

OH 

RA 

GI 

RL 

SR 

MO 

RK 

MO 

DO 

XU 

UL 

EL 

QE 

UR 

UU 

PU 

LF 

XH 

UE 

JG 

ZA 

MY 

UC 

01 

01 

zo 

UK 

MU 

PR 

KQ 


ZU 

TL 


JL 

TF 

UK 

YF 

FD 


ZD 

US 

LO 

UZ 

GO 

XT 

MO 


10 REM SPELLING FLASH CARDS CUER.5> 

20 REM BY ANDY BARTON 
30 REM cg> 1988, ANTIC PUBLISHING 
80 GRAPHICS 18sPOSITION 0,3:? »6;"BfflSB 
S ? **6 * ? **6 : ? **6 ; " b 

y andy barton" 

90 GOTO 5500 

100 REM SUBROUTINES 

110 REM COUNTDOUN TIMER 

120 JIF5 = 5EC*60:THI=CINTCJIFS'256>:> * TL 
0U=JIF5-THI*256 

130 POKE 66,1:POKE 540 ,TLOU:POKE 541,T 

HI:POKE 554,1:POKE 66,0 

140 RETURN 

150 REM TUNE 

160 FOR Z=1 TO NTS 

170 T=clNTcRNDc0J*7:>+i:>*5 + 40 

180 FOR L=14 TO 4 STEP -2 

190 SOUND 0,T,10,L 

200 NEXT L:NEXT Z 

210 SOUND 0,0,0,0:RETURN 

220 REM BUZZER 

230 FOR Z=1 TO NTS 

240 SOUND 0,50,6,10 

250 NEXT Z 

260 SOUND 0,0,0,0:RETURN 

270 REM MAIN SUB 1 

280 TEMP=TRACK«0,X* *15 

290 AUS=AUFS(TEMP,TEMP+15-U 

300 GOSUB 820 

310 XAU = 9-INTCCAUL + H'2> 

320 REM MAIN SUB 1A -- UIEU UORD 

330 SEC=UIEU:GOSUB 110 

340 POSITION XAU+1,5:? »6;AU$ 

350 IF PEEKCTFLAG1 THEN 350 
360 REM BLANK-OUT LETTERS 
370 GOSUB 870 

380 FOR Z = 1 TO AUL:POSITION XAU+Z,6:? 
«6;"_"; : NEXT Z 

390 ANS$=BLANK*:REM 15 SPACES 

400 RETURN 

410 REM MAIN SUB 2 

420 REM INPUT LETTERS 

430 CHC=1:GOSUB 780 

440 POSITION XAU+CHC,5:GET «6,C:IF CO 
32 THEN CHC=CHC+1 : GOTO 540 
450 POKE CH,255:SEC=LIMIT•GOSUB 110:PO 
SITION XAU+CHC, 6 : ? **6; 

460 IF PEEKCCHJ0255 THEN GET tt3 , CHR •* G 
OTO 490 

470 IF PEEKCTFLAGJ=0 THEN 580 
480 GOTO 460 

490 IF CHR=27 OR CHR=155 THEN POKE 712 
,68:GOSUB 760:T0T=T0T+1:GOSUB 330:GOTO 
430:REM cESCi OR RETURN 
500 IF CHR=126 THEN 650:REM DELETE 
510 IF CHR< > 32 AND CHR045 AND CHR039 
AND CHR < 65 OR CHR>90 THEN 440:REM NOT 

520 POSITION X AU + CHC , 6 : ? »6 ; M : P05ITI 
ON XAU+CHC,5:? **6; CHRS cCHR> 

530 AN5ScCHC,CHO=CHRScCHR>:CHC=CHC+1 
540 IF CHC < = AUL THEN 440 
550 REM CHECK SPELLING 

560 IF AN5S cl, AUL>=AUS THEN NTS = UTUNE * 

GOSUB 150:T0T=T0T+1:C0R=C0R+1:GOSUB 78 

0 : AN5S="" : GOSUB 870:RETURN 

570 REM MISSPELLED 

580 POKE 712,68:T0T=T0T+1 

590 NTS=BUZZ:GOSUB 220 

600 GOSUB 760 

610 FOR Z=1 TO AUL 

620 IF AUScZ,Z><>ANSScZ,ZJ THEN P05ITI 
ON X AU + Z, 5 : ? «6 ; " " 

630 NEXT Z 


OE 

01 

TP 


GE 

QU 

RN 

ZM 

LT 

ZC 

ZD 

ZL 

BY 

OG 

ZZ 

JA 

US 

DK 

ZE 

OJ 

UQ 

TN 

ZI 

ZO 

TE 

UU 

ZU 

SO 

YD 

JZ 


LX 

MK 

AA 

RN 

UL 


AS 

LM 


OK 

AF 

RN 

UH 

PL 

IL 

RF 

XK 

PE 

JL 

IB 

AB 

NN 

ZC 


5 Y 
HF 


»6; : CHC = CH 

»6 ; •• * AN5S cC 


640 GOTO 430 
650 IF CHC=1 THEN 440 
660 POSITION X AU + CHC,6:? 

C-1:POSITION X AU + CHC,5:? 

HC,CHO=" ••: GOTO 440 

670 REM TRACK SUB 

680 POKE 712,58 

690 FOR X=FL TO 1 STEP -1 

700 IF TRACK cl # X) THEN TRACK cl,X>=TRAC 

K cl,X)-1:GOSUB 280:GOSUB 430 

710 NEXT X 

720 FOR Z = 1 TO FL * IF TRACKci,Z> THEN 7 
40 

730 NEXT Z:TRACKC1,0>=0 
740 RETURN 

750 REM SET TRACK SUB 

76 0 TRACK Cl,03=1:TRACK cl,X>=REPEAT 

770 REM DISPLAY SCORE 

780 POSITION 0,0:? «6;"T0TAL ";T0T:P05 
ITION 0,1:? »6;"RIGHT »;COR 


790 Z=CHOICECCO:POSITION 11,0:? »6;"L 
1ST *#" i Z 

795 POSITION ll-2*cDD*cZ*ll+9,Z*ll+9>< 
>•• "*,H? **6 ; DDS cZ*ll, Z*ll+10> 

800 RETURN 
810 REM SHORT 
820 AUL=15 

830 IF A US CAUL, AUL) =•• M THEN AUL=AUL~1 
* IF AUL > 0 THEN 830 

840 IF AUL >0 THEN AUS = AUScl,AUL> 

850 RETURN 

860 REM BLANK-OUT 

870 POSITION 0,5:? **6; BLANKS 

880 RETURN 

890 REM LOAD FILE 

900 FILENAMES="D1:" 

910 Y=4:Z = CHOICECCO*11:FOR X = 0 TO 7:1 
F DDS CZ + X, Z + X) < >•• •• THEN FILENAMES cY, Y 
J=DDS CZ + X,Z + XJ : Y = Y + l 
920 NEXT X 

930 FILENAMES cY> =••.": FILENAMES cY + 13 =DD 
S CZ + 8,Z + 10» 

940 TRAP 980 : CLOSE ttl:OPEN »1,4,0,FILE 
NAMES 

950 INPUT **1; FL , UIEU 

960 FOR X=1 TO FLsINPUT «1;TEMPS:Y=15* 
X : AUFS cY, Y + 15-H=TEMPS : NEXT X : AUFS CY + 1 
•• 

970 TRAP 40000 : CLOSE *»1 : RETURN 
980 NT5 = BUZZ : GOSUB 220:? "ERROR -- ••; F 
ILENAMES;" is not a":? "Spelling Flash 
Card file" 

990 FOR Z=1 TO 350:NEXT Z:PQP :GOTO 46 
00 

1000 REM 5AUE LIST TO DISK 

1010 IF FL=0 THEN POSITION 2,21:? BLAN 

KS;BLANKS;"ffi ABORTED":GOTO 4510 

1020 CLOSE *tl : OPEN ttl ,8,0, FILENAMES 

1030 ? ttl s FL s ? ttl ; UIEU 

1040 FOR X = 1 TO FL:Y = 15*X:? »l;AUFScY, 

Y+15-11:NEXT X 

1050 GOTO 4510 

1060 REM ML SUBROUTINE 

1070 POKE 752,1 

1080 DL=PEEKc560)+PEEKc561>*256 
1090 5C=PEEKcDL+4>+PEEKcDL+5J*256 
1100 RETURN 

1110 Sl=PEEKcSC+704>:S2=PEEKC5C+7841 
1120 X = U5RcADL0N,SC+400,ADRcSTORAGES> , 
160,1700,SC+400,80,SC+560,SC+480,400,A 
DLDAT,DL+15,4) 

1130 TC=1:Pl=23:IF AUC=1 THEN T2=C*15: 
AUS = AUF SCT2,T2 + 15-1J 

1140 POSITION Pl-1-(09) ,10:? Cj" ";AU 
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LE 


AT 

OK 

UE 

BC 

WO 

UD 

VR 

TG 

PR 

JP 

HH 

ZD 

KO 

SA 

01 

UA 

OE 

GM 

ZB 

YH 

RG 

GZ 

II 

ML 

QU 

EU 

PJ 

CB 

Eh 

GZ 

IN 

XH 

FC 

QU 

XE 

TX 

TI 

TI 

BJ 

HU 

CC 

MS 

ET 

AJ 

EO 


DS 


IX 


NE 

LG 

TK 


SZ 

WF 

RH 

JC 

AO 

ZU 


DJ 

5S 

BQ 


1150 P2 = SC + 443* POKE P2+TC,255*cAUC=1>: 
REM PUT BAR UNDER FIRST L5TTER IN GR.7 

1160 RETURN 

117 0 X=U5RcADLQFF, 5C+879, 5C+959,400, AD 
R(STORAGES),SC+400,160,DL+14,DL+15,4> 
1180 POKE 5C+704, 51*POKE 5C+784,S2 
1190 RETURN 

3000 REM PROCESS CHOICES 
3010 FOR CC = 1 TO CHOICE C0a 
3020 GOSUB 900 

3030 REM RADOMIZE TRACKING ARRAY 

3040 FOR X=0 TO FL:TRACKC0,X>=0:TRACKc 

1,X>=0*NEXT X 

3050 FOR TC=1 TO FL 

3060 X=INTCRND<03*FL3+1 

3070 IF TRACK c0,Xa =0 THEN TRACK<0,X3=T 
C * GOTO 3100 

3080 X = X + 1*IF X > FL THEN X = 1 

3090 GOTO 3070 

3100 NEXT TC 

3110 REM LIST WORDS 

3120 POKE 752,0 

3130 GRAPHICS 2* cFL<ll>+l*cFL>10 AND F 
L<213+0*CFL>203:POKE 752,1 
3140 IF FL > 20 THEN 3160 

3150 FOR X=1 TO FL:POSITION 2,X-1*G05U 
B 3190 : NEXT X*GOTO 3210 
3160 HFL=INTcCFL+13^23 

3170 FOR X=1 TO HFL*POSITION 4,X-1*G05 
UB 3190*NEXT X*IF X>FL THEN 3210 
3180 FOR X=X TO FL*PQSITION 20,X-HFL-1 
: GOSUB 3190 *NEXT X:IF X>FL THEN 3210 
3190 IF X < 10 THEN ? «6; " 

3200 ? «6; X ; " ";*Y=15*X*? »6;AUF*cY,Y+ 
15-13:RETURN 

3210 ? s? •• PRESS ANY KEY" 

3220 GET n 3,Z 
3230 REM MAIN LOOP 

3240 GRAPHICS 2 + 16:POKE 708,214:TC = 1 : T 

OT=0:COR=0:GOSUB 780 

3250 POKE 756,CHR5ET'256 

3260 FOR AWC=1 TO FL 

3270 IF TRACKC1,03 THEN GOSUB 680 

3280 POKE 712,0 * X = AUC 

3290 GOSUB 280*GOSUB 430 

3300 NEXT AUC 

3310 IF TRACKC1,03 THEN GOSUB 680:GOTO 
3310 

3320 REM REWARD SCREEN 

3330 POKE 712,0*7 «6;» ".BLANK* 

3340 POSITION 5,5*7 «6 ; "HfflfflGMEGMS" * NTS 
= LTUNE* GOSUB 150 
3350 NEXT CC 

3360 POKE CH,255 * POSITION 2,8*7 t*6;"AN 

Y KEY TO GO ON*' * GET »3,CHR*G0T0 4510 

3500 REM ADD NEW LISTS 

3510 GRAPHICS 2*T2*=BLANK**Z=0 

3520 POSITION 2,0*7 tt6;"type in new li 

St" 

3530 POSITION 2,3*7 «6 ; "TITLE *"* INPUT 

TI* * IF Tl* = " « OR Tl*="" THEN 7 "H"* 7 

*? *7 "ABORTED"* GOTO 4510 

3540 IF TI*cl,li<"A" OR TI* cl # la >"Z" T 

HEN 7 *? "Must start with a LETTER"* F 0 

R X = 1 TO 100 * NEXT X*GOTO 3510 

3545 IF LENCT1**>8 THEN 7 "H"* 7 *7 "To 

o Long!"* FOR X = 1 TO 100*NEXT X*GOTO 35 

10 

3550 Y = 1* FOR X = 1 TO LENcTl*) 

3560 IF Z=0 AND Tl*cX,X>="." THEN T 2 *c 
Y3=T1*CX,XJ * Z = Y + 3 * Y = Y + 1 

3570 IF TI* CX, XJ >="0" AND Tl*cX,X><="9 
" OR Tl$ (X,X>> = "A" AND TI*CX,X)<="Z" T 
HEN T2*CY)=T1*«X,X>*Y=Y+1 
3580 NEXT X * IF LENcT2*>>12 THEN T2* = T2 

* cl,12a 

3585 IF Z > 0 AND LENcT2*i>Z THEN T2* = T2 

* cl,Za 

3586 Z1 = LENCT2*J * FOR X = 1 TO LENcT2*asI 
F T2* cX,Xa="." THEN Z1 = X-1*Z = 0 

3587 NEXT X * T2*=T2* cl, Zl) 

3590 IF Z=0 THEN T2$cLENcT2**+ D=".DAT 

* • 

3595 POSITION 2,5*7 »6;T2** POSITION 2, 
7*7 «6;"ACCEPT? cN>"*GET »3,Z*IF Z=78 
THEN 3510 

3600 FILENAME* = "D1*"* FILENAME* c4> =T2* 
3610 POSITION 0,7*7 **6;"H0U LONG TO PR 
EUIEU?" 

3620 TRAP 3630*UIEU=DUIEU*INPUT Z*UIEW 


HI 

JB 

TF 

FP 

JD 

OF 

GD 

LP 


RZ 

HU 

IZ 

YO 

AR 

RS 

TJ 

NU 

YK 

QH 

JO 

XL 

OF 


FK 

JY 

XA 

ZY 

RR 

SZ 


UD 

RK 


UY 

DO 

JC 


IN 

QX 


YU 

TE 

NE 

KL 

RX 

XU 

NL 

RH 

JM 


UG 

UU 

PP 

FB 

YQ 


NQ 

LS 

TX 


= Z 

3630 TRAP 40000* POSITION 2,9*7 **6;UIEU 
;" SECONDS"*SEC=UIEU*GOSUB 110 
3640 IF PEEKCTFLAG) THEN 3640 
3650 GOTO 3820 
3660 REM EDIT LIST 

3670 TRAP 5000* CHOICE cia =UALcCHOICE* c2 
») * CC = 1 

3680 GOSUB 900 * TRAP 40000 
3690 AWC = 1*X = 0* GRAPHICS 0 *GOSUB 1070 
3700 ? *? "This file is set to preview 

words for ";UIEW;" Seconds"*? *? "Ent 
er new tine or press ■0@I1I3MM" 

3710 TRAP 3740 * INPUT Z*UIEW = Z*TRAP 400 
00 

3720 ? *? UIEW;" Seconds"*5EC=UIEW*GOS 

UB 110 

3730 IF PEEKCTFLAG* THEN 3730 

3740 ? "H"* IF FL > 20 THEN 3760 

3750 FOR X = 1 TO FL* POSITION 2,X-1*G05U 

B 3790 * NEXT X * GOTO 3830 

3760 HFL=INTccFL+ia^23 

3770 FOR X = 1 TO HFL*P05ITI0N 2,X-1*G05 
UB 3790 * NEXT X 

3780 FOR X = X TO FL* POSITION 21,X-HFL-1 

* GOSUB 3790 * NEXT X'GOTO 3830 
3790 IF X <10 THEN ? " "; 

3800 ? X;" "; * Y = 15*X * ? AUF*cY,Y + 15-13 * 
RETURN 

3810 REM INPUT NEU U0RD5 
3820 GRAPHICS 0:GOSUB 1070:FL=0 
3830 POSITION 2,21:? ••■OHGISB word or 
to Edit ■IllSiimHim TO SAUE 

• • • 

3840 POKE CH, 255 : GET «*3,CHR 

3850 IF CHR=155 THEN 1010:REM SAUE FIL 

E 

3860 IF CHR<48 OR CHR>57 THEN 3920:REM 
NOT 0-9 

3870 AUC = 1:C = VAL CCHRS(CHR)* :5EC = 0•5:GO 
SUB 110 

3880 IF PEEK cCH> =255 THEN IF PEEK cTFLA 
G> THEN 3880 

3890 IF PEEKtCHJ < >255 THEN GET **3,Z:IF 
Z>47 AND Z<58 THEN C = C*10 + UALCCHRSCZ> 

i 

3900 IF NOT CC<1 OR C>FL» THEN 3910 
3905 POSITION 4,23:? C;“ Is too large" 
J : FOR X = 1 TO 99 = NEXT X:POSITION 0,23:? 

BLANKS;:GOTO 3830 
3910 GOTO 3950 

3920 IF CHR< 65 OR CHR>90 THEN 3840:REM 
NOT A-Z 

3930 FL=FL+1sIF FL>40 THEN FL=40:POSIT 
ION 2,23:? • • aiiiClfaHlUiriEIBIflaHHEBOHfflmHHB " : F 0 R 
X = 1 TO 150 : NEXT X-'GOTO 3740 
3940 C=FL:T2=C*15:AHS=BLANK$:AU$cl,1»= 
CHR$ CCHRJ :AUC = 0 

3950 POSITION 2,21:? BLANK$;BLANKS;:PO 
KE 752,1: POSITION 2,21:? ••■OBlGlgH word 
and press ■HHmQHUCIH’*; 

3960 GOSUB 1110 

3970 IF AUC=0 THEN TC=TC+l:POKE P2*TC. 
255 

3980 GET **3, CHR 

3990 IF CHR=155 THEN 4090:REM RETURN 
4000 IF CHR=254 THEN 4190>REM CTRL DEL 
EAT 

4010 IF CHR = 126 THEN IF TCOl THEN 422 
0:REM DELETE 

4020 IF CHR=30 OR CHR=43 THEN 4230>REM 

■ •gjj* 1 

4030 IF CHR=31 OR CHR=42 THEN 4250*REM 

4040 IF CHR>64 AND CHR<91 OR CHR = 32 OR 
CHR = 45 OR CHR = 39 THEN GOTO 4060 * REM A 
-Z OR SPACE OR - OR 
4050 GOTO 3980 

4060 POSITION Pl + TC,10 * ? CHR* CCHR) * AW* 
cTC,TO=CHR*cCHRa:POKE P2+TC,0 
4070 TC = TC + 1* IF TC >15 THEN TC = 15 
4080 POKE P2+TC,255*G0T0 3980 
4090 POKE CH,255 * GOSUB 820*POKE 94,PEE 
K cDL+4* * POKE 95,PEEKcDL + 5> *GOSUB 1170* 
IF AUL = 0 THEN 4160 

4100 T2*cl,15)=BLANK**T2*ci,AUL)=AU**A 
WF* CT2,T2 + 15-la=T2* 

4120 IF AUC=0 THEN 3740 

4130 X = C * IF FL < 21 THEN POSITION 2,C-1* 
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EL 

JY 

TU 

II 

TN 

BQ 

HR 

NT 

NU 


RO 

UH 

LK 

UN 

DE 

QB 

CU 

RG 

IR 

UK 

01 

TO 

ZB 

EG 


UM 

KB 

HL 

QY 

OX 

KU 

JJ 

DH 

5D 

GR 

MR 

QE 

XX 

OX 

PM 

GJ 

IE 

QE 

KY 

EJ 

ZY 


CR 
EJ 
F J 
LN 


IB 

UU 

UG 


UH 

IQ 

FH 


ZZ 

LP 

YM 


GOSUB 3790 * GOTO 3830 

4140 IF OINT c (FL + H '2* THEN POSITION 
21,C-HFL-1*GOSUB 3790:GOTO 3830 
4150 POSITION 2,C-1sGOSUB 3790:GQTO 38 
30 

4160 IF FL < 2 THEN POSITION 2,19:? BLAN 
KS ; ABORTED"; :GOTO 4510 
4170 IF C=FL THEN AUFS=AUFScl,T2-H«FL 
= FL -1 : GOTO 3740 

4180 AUFScT2i=AUFScT2+15i *FL = FL-1 * GOTO 
3740 

4190 IF TC=15 THEN AUS(15i=" ":GOTO 42 
10 

4200 AUS (TCi=AUS (TC + H : AUS(lSl=" " 

4210 POSITION Pl+1,10:? AUS* GOTO 3980 
4220 POKE P2+TC,0:TC=TC-1 : POKE P2+TC,2 
55:POSITION P1+TC,10*? " "sAUScTC,TO= 
" ":GOTO 3980 

4230 IF TCOl THEN POKE P2+TC,0:TC=TC- 
l:POKE P2 + TC , 255 
4240 GOTO 3980 

4250 IF TC < >15 THEN POKE P2 + TC,0«TC = TC 
+ 1s POKE P2 + TC,255 
4260 GOTO 3980 

4500 REM DISK DIRECTORY & CHOOSE UORD 
LIST C5> 

4510 CLOSE **1 : OPEN «1,6,0,"D1:*.DAT" 
4520 DDS cl J =•• DDS(65*111=" ":DDS(2i= 

DDS 

4530 DD=1 

4540 INPUT ttl,TEMPS 

4560 IF TEMPS(5,16i="FREE SECTORS" THE 
N 4590 

4570 DDScll*DD,11*DD + 101=TEMPS (3,13i:D 
D=DD+1 

4580 GOTO 4540 

4590 CLOSE »l:DD=DD'l 

4600 GRAPHICS 2*(DD<111+1*cDD>10 AND D 
D < 211+0* CDD > 201 :POKE 752,1:? -®-:IF DD 
=0 THEN 4740 

4610 IF DD > 20 THEN X = 0:GOTO 4630 

4620 FOR X=1 TO DD:POSITION 2,X1:G05U 

B 4710 : NEXT X : GOTO 4740 

4630 IF X =41 THEN 4680 

4 64 0 TEMP=DD* (DD<4H+40*(DD>401 

4650 HDD = INT ( (TEMP + H'2i 

4660 FOR X=1 TO HDD:P0SITI0N 4,Xl:G05 
UB 4710:NEXT X:IF X>TEMP THEN 4740 
4670 FOR X = X TO TEMP:POSITION 20,X*HDD 
-1:GOSUB 4710:NEXT X:GOTO 4740 
4680 HDD = INT ( (DD-40 + H'2i+40 
4690 FOR X = X TO HDDsPOSITION 4,X~41:G0 
SUB 4710:NEXT X:IF X>DD THEN 4740 
4700 FOR X=X TO DDsPOSITION 20,X-HDD-1 
: GOSUB 4 710:NEXT X:GOTO 4740 
4710 IF X<10 THEN ? «6;" "; 

4720 ? «6;X;" ";DDS(X*ll,X*ll+101;:RET 
URN 

4730 REM INPUT MESSAGES 
4740 POKE 752,0 

4750 POSITION 2,20:? -Choose cEX. 

3 or 3,5,9 or 2-7" 

4760 ? "■[§■□■ Edit a list ■[« New li 
st" 

4770 IF DD >40 THEN ? "■SaDODSDSlB More ch 
oices" 

4780 ERROR=5000 
4790 INPUT CHOICES 
4800 L=LENcCHOICESi 

4810 IF L=0 AND DD>40 THEN GRAPHICS 0: 
POKE 752,1:? -§S":GOTO 4630:REM MORE CH 
OICES 

4820 IF L = 0 THEN 4600 
4830 IF CHOICES<1,li="N" THEN 3510 
4840 IF CHOICES cl,li=-E" THEN 3670 
4850 IF CHOICES cl, 11 <-0- OR CHOICESd, 
H>"9" THEN 5000 

4B60 CC = 0 * TEMP•=BLANKS: TC = 0*DASH = 0 
4870 FOR Y = 1 TO L 

4880 IF CHOICES c Y, Yl<"0" OR CHOICEScY, 
Yi>"9" THEN 4910 
4890 TC=TC+1 

4900 GOTO 4950 * REM NEXT Y 
4910 IF TC < > 0 THEN CC = CC + 1«CHOICEcCCi = 
UAL (CHOICES cY-TCii :TC = 0*IF CHOICE (CO> 
DD THEN GOTO 5000 

4920 IF DASH=1 THEN GOSUB 4990:GOTO 49 
40 

4930 IF CHOICESCY,Yi="-" THEN DA5H=l:G 
OTO 4950 

4940 IF CHOICESCY,Yi<>"," THEN 5000 


MT 

UT 


GC 

AL 

OE 

MD 

BU 

AU 

QZ 

NG 

UE 

NX 

FO 

JS 

OT 

TY 

HM 

YU 

RY 


LM 

PJ 


AH 

GJ 

CX 

SK 


UH 


EJ 

ED 

JJ 

LJ 

UU 


RQ 


FG 


PZ 

AT 

LU 


XS 

RU 


4950 NEXT Y 

4960 IF TC< >0 THEN CC = CC + 1:CHOICE(CCl = 
UAL (CHOICES CY-TOl : IF CHOICE CCO > DD TH 
EN GOTO 5000 

4970 IF DASH=1 THEN GOSUB 4990 

4980 CHOICE(01=CC:GOTO 3010 

4990 DA5H=0:CC=CC-l:X=CHOICECCO:Z=CHO 

ICECCC+H-X:FOR CC = CC TO CC+Z 

4995 CHOICE cCCi=X sX = X + 1:NEXT CC*CC = CC- 

1:RETURN 

5000 NTS=BUZZ:GOSUB 220:? -ERROR -- Ur 

ortg Input Forn";: 5EC = 2 : GOSUB 110 

5010 IF PEEK(TFLAGi THEN 5010 

5020 GOTO 4600 

5500 REM EQUATES TABLE 

5510 REM UALUE UARIABLES 

5520 UTUNE = 20 * REM LENGTH OF TUNE FOR U 
ORD 

5530 LTUNE=80 sREM LENGTH OF TUNE FOR F 
INISHING LIST 

5540 BUZZ=20:REM LENGTH OF BUZZER FOR 
ERROR 

5550 DUIEU=0.75:REM SECONDS TO UIEU UO 
RD (INITIAL DEFAULT UALUEl 
5560 LIMIT = 20 s REM TIME LIMIT (SECONDSi 
TO TYPE EACH LETTER OF THE UORD 
5570 REPEAT=3:REM NO. OF TIMES TO REPE 
AT A MISSED UORD 
5730 REM INITIALIZE 

5740 DIM STORAGES(1601 :STORAGES (11=- - 

:STORAGES ..STORAGES(2i=5T0RAGE 

S:DIM BLANKS(38i 

5750 BLANKS=STORAGES:DIM DDS(65*111:RE 
M DISK DIRECTORY 

5760 DIM FILENAMES(151,CHOICES(1201,TE 
MPS (32i,TS (1441,TlS(17i,T2S(17i,CHOICE 
(641 

5770 AUC=0:REM ACTIUE UORD COUNT UARIA 
BLE 

5780 TFLAG=554:REM FLAG FOR COUNTDOUN 
TIMER ROUTINE 

5790 DIM AUFS((40*151+15!:REM ACTIUE U 
ORD FILE - A STRING 

5800 DIM TRACK(l,40i:REM REM TRACKING 
MATRIX - LEUEL (0,Xi. 0=CORRECT NOT 0 
= STILL TO DO 

5810 REM - LEUEL (l,Xi KEEPS TRACK OF 
NO. OF TIMES LEFT TO REPEAT A MISSED U 
ORD 

5820 DIM AUS(151sREM ACTIUE UORD 
5830 DIM AN5S(15i:REM ANSUER 
5840 CH = 764 sREM LAST KEY PRESSED 
5850 CLOSE **3 : OPEN «3,4,0,"K:" 

5860 TS cl,721 =-h dZBfflnSnOBBBLlBfflBSHCJBmH 

rasBsmaBGBh dz w dz raz dz ®z dz immu dz 
■matacusniQua" 

5870 ts c73,i44i ="msmmQB[sim[sjnsn]eB[n dZ l£Z 
dz [Kz^hahBhaBharahMmhanhcirahnmcHnH^snnB* 
§j[3CHmijfsja»izsjBB * * 

5880 TEMPS=—h":TEMPS(2,19l=T$(105,1221 
:TEMPS(20,32i=TS(128,1401:X=U5R(ADR(TE 
MPSj,ADR (TSJ,1536,1441 

5890 ADL0N=1567:ADL0FF=1593:ADLDAT=167 
6 

5900 CHRSET=(PEEK(1061 -8i*25 6:X = U5R(15 
36,57344,CHRSET,5121 

5910 RESTORE 5920:FOR Z=504 TO 511:REA 
D X:P 0 KE CHR5ET + Z,X:NEXT Z:REM REDEFIN 
E "_" 

5920 DATA 0,126,0,0,0,0,0,0 
5930 GOTO 4510 


LISTING 2 


AM 

PY 

FJ 

RO 

EU 

IJ 

PR 

UO 

RD 

PY 


10 REM SPELLING FLASH CARDS-LISTING 2 
20 REM BY ANDY BARTON 

30 REM (Cl 1985,1987 ANTIC PUBLISHING 
35 REM CREATES LINES 5860-5870 
40 REM (LINES 10-250 MAY BE USED UITH 
OTHER BASIC LOADERS IN THIS ISSUE. 

50 REM CHANGE LINE 70 AS NECESSARY.! 

60 DIM FNS (201,TEMPS(201 ,ARS (931 :DPL = P 

EEK(10592i:POKE 10592,255 

70 FNS = -D:LINES-LST":REM THIS IS THE N 

AME OF THE DISK FILE TO BE CREATED 

80 ? "KICflisk or Basse tte?";: POKE 764,25 

5 

90 IF NOT (PEEK(7641=18 OR PEEK(764i= 
581 THEN 90 
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TH 

UB 

MY 

KB 

PU 

LW 

BQ 

YC 

DM 

BK 

MM 


CM 

UQ 


100 IF PEEK c?64) =18 THEN FN$="C : " 

110 POKE 764 , 255 * GRAPHICS 0:? •• ON 

TIC'S GENERIC BASIC LOADER" 

120 7 ,"BY CHARLES JACKSON" 

130 POKE 10592,DPL:TRAP 200 

140 ? :? :? "Creating ";FN$:? "...Plea 

se stand by." 

150 RESTORE : RE AD LN * LM=LN:DIM A$<LN> s 
C = 1 

160 AR$="":READ AR$ 

170 FOR X = 1 TO LEN CARS) STEP 3:P0KE 75 
2,255 

180 LM=LM-1•POSITION 10,10:? "(Countdo 
wn. . .T-";INT cLM'10>; 

190 A$cC,C»=CHR$cUALcAR«cX,X+2Ji»:C=C+ 
1:NE X T X:GOTO 160 

200 IF PEEKC195»=5 THEN ? :? :? "QTOO 

MANY DATA LINES!":? "CANNOT CREATE FIL 
E!":END 

210 IF C < LN + 1 THEN ? :? "QTOO FEW DATA 

LINES!":? "CANNOT CREATE FILE!":END 
220 IF FN*="C:" THEN ? :? " Prepare ca 

ssette, press CRETURN1" 


AR 

PU 

AL 

HC 

YA 


NN 


HY 


ZC 


DK 


FL 


230 OPEN »1,8,0,FN$ 

240 POKE 766,1:? **l;A$;:POKE 766,0 

250 CLOSE **l: GRAPHICS 0:? "BfflfflGDHHSOfiBU 
• • 

1000 DATA 180 

1010 DATA 0530560540480320840360400490 

44055050041061034104032100006160000177 

240145212230212208002230213 

1020 DATA 2302402080022302411982382082 

34198239016230096104032100006032127006 

032100006032127006032100006 

1030 DATA 0320040060321000060321270060 

96104032100006160000177240145212198212 

208002198034155053056055048 

1040 DATA 0320840360400550510440490520 

52041061034213198240208002198241198238 

208236198239016232032100006 

1050 DATA 0321270060321000060321270060 

96104170104168104133241104133240104133 

213104133212104133239104133 

1060 DATA 2381520721380720961662381600 

00177240145212200202208248096006007010 

010034155 


Coming Next in March ’89 Antic 

• SpartaDOS X: ICD’s Ultimate Operating System Reviewed by Matthew Ratcliff • 
• Electric Signwriter — Flashy Automated Display Screens • 

• Antic-Pak Utilities • Demon Racer ACTION! Game • 

• “Planetfill” Text Adventure 2-Part Disk Bonus Starring Iggy the Droid • 



GET YOURS FAST 


Super Bonus Program! 

Found only on the disk, it’s too large a type-in 
program to fit in the magazine. 

Plus all 172K of this month's Antic programs on 
disk. Great 8-bit software without typing! 


Phone Toll Free 

(800) 234-7001 

Phone orders by Visa or MasterCard only 
Ask for ADS289 









Antic Classifieds 


SOFTWARE, ETC. 

Discount Software/Hardware for ATARI 8-bit & 
ST. 30% below retail Atari 130XE S145, Supra 
20meg-ST 8579, ATARI XF551 disk drive 8175, 
Anchor 2400 baud modem 8159, Star NX-1000 
color 8239. Send 81 for 20 page catalog with 
over 500 titles. Specify computer type. MULTI 
VIDEO SERVICES, Box 246, E.Amherst, NY 
14051 Phone 716 688-0469 after 6 pm (4/89) 

Best PD disks/prices-fastest service-FREE 
bonuses-8-bit/ST. Automatic DISK-A-MONTH 
program. Full disks less than 81.50 each. Super 
sample disk with catalog 83.50. Specify com¬ 
puter. PATNOR, POB 370782, El Paso, TX, 
79937. (2/89) 

Si’s Fantastic Selection of packed ATARI 8-bit 
(D-S)/ST PD Theme Disks is Far SUPERIOR to 
all other collections we’ve seen—TRY US! Send 
for MLX GAMES’GREATEST HITS (our Most 
Popular title), plus Si’s newest catalog, for 
8-bit/83.00 or ST/84.50. Catalog alone (specify 
system)/82.00. SOFTWARE INFINITY, 642 East 
Waring Avenue, State College, PA 16801 (2/89) 

FREE DISK!! We would like to send you one of 
the best PD games avilable for the 800/XL/XE. 
Limited offer. Write today. ComputeiActive, 
Box 893-D, Clinton, OK 73601 (2/89) 

12 X-RATED DISKS FOR THE ATARI 
800/XL/XE only 814.95 + 82.50 S/H. You must 
send a signed statement of being over 21 with 
check or money order to: ComputeiActive, Box 
893-X, Clinton, OK 73601 (2/89) 

PRINTSHOP ICONS FOR THE ATARI 
800/XL/XE. 10 disks with over 1000 pictures 
for use with Printshop. Only 14.95 + 2.50 S/H. 
Order today! ComputeiActive, Box 893-P, Clin- 
ton, OK 73601 (2/89) 

MGL COMPUTER WHOLESALERS. BUY- 
SELL-TRADE. Used 8 Bit Computers, Soft¬ 
ware, Diskdrives, Modems, Printers and acces¬ 
sories. Huge Public Domain Library. Low 
Prices-30 day Warranty. Call 717-267-3205 or 
267-2865, or 762-6967 For Prices and Com¬ 
plete List (4/89) 

200 DS/SD DISKS OF PD SOFTWARE FOR 
THE 8-BIT ATARI. PLEASE SEND 83 TO: 
AAPDS 6-18TH EDGEMORE, HUTCHINSON, 
KS 67502 FOR A CATALOG LISTING AND 
DEMO DISK.(2/89) 


MoonSoft 8-bit. LabelMaster and Multi-Column 
Lister 810. Included with Small Business Sys¬ 
tem 830. Send SASE for info. Black Moon Sys- 
tems, Pob 152, Windgap, Pa 18091.(2/89) 

★★★★★★ 

Stop overpaying for P.D. software!!! ALL 8-bit 
disks only 82.00 each, ST only 83.00. Quan¬ 
tity discounts, great selection. Specify com¬ 
puter. Send large SASE: MWPDS,890 N. 
Huntington St., Medina, OH 44256 (2/89) 

ST MONITOR AND MIDI CABLES. Monitor 
cable gives 520 ST composite video/audio for 
non-Atari monitor or VCR 815. PAIR OF 10’ 
coiled midi cables for all STs 820. Include 82 
S/H per order. Southern Security, 14007 Long- 
vue, Baker LA 70714 (2/89) 

DUST COVERS: Protect your investment with 
durable, anti-static, water resistant covers cus¬ 
tom designed for your 800XL, 65XE, 130XE, 
1050 Drive, 520ST, 1040ST. Specify cover(s) 
and send 88.95 each plus 82.90 shippiing: 25th 
Century, 234 Fifth Avenue, Suite 301, New 
York, NY 10001. (2/89) 

★★★★★★ 

AUTORUN SYSTEM. Make all your basic pro- 
grams autorun with The Basic Autorun System. 
Send 85 00 for disk to: R.D.K. 321 Imperial 
Ave. #12-099 Calexico, CA 92231 (2/89) 

Try us for your Atari Public Domain software 
needs. Good prices, fast service. Write for free 
catalog. Vulcan Software, PO Box 692 
Manassas, VA 22111-0692(7/89) 

ENJOY quality public domain software! 
Games—productivity—utilities—communica¬ 
tions—more! Catalog FREE. . .demo disk, 
83 00. Homemade, 6011 Hyde Park Circle, 
Suite 202, Jacksonville, FL 32210(2/89) 

★★★★★★ 

FOR SALE 8-BIT MULTI USER BBS SYS- 
TEM! The only 8-bit BBS system of its kind. 
Will sell everything you need to get up and run¬ 
ning within hours. Write today for information: 
Micro Systems, PO Box 18346, Ft. Worth, 
Texas, 76118 (2/89) 


SynFile + UTILITY PROGRAMS. Print file lay¬ 
out, create and save reports, undelete records, 
alter look-up tables, etc. 819.95 plus 82.00 
P&H. Send large SASE for more info. SFP, 4 For- 
est Drive, Palmyra, VA 22963 (2/89) 

The first 100 requests for our list of Atari 
800/XL/XE PD disks will receive our best sell¬ 
ing game disk free. Hurry before the free disks 
are gone! Limit one free disk per address. 1st 
Byte, PO. Box 130822, Tyler, TX 75713 

Public domain Disks: ST 84.00, 800/XL/XE 
83 00. Largest ST selection. ST Bible on disk 
839.95. Blank disks 8CALL. VISA/MC. FREE 
Catalog—Call or Write, Specifiy Computer. 
BRE Software, 352 W. Bedford, Suite 104-AN, 
Fresno, CA 93711. (800)622-7942, (209)432- 
2159 in CA.(2/89) 

SAVE MONEY ON ATARI 800/XL/XE SOFT¬ 
WARE! Public Domain and Shareware soft¬ 
ware! Over 250 Theme Disks! Every disk 
guaranteed! Fast dependable world-wide serv¬ 
ice! Send for your Free descriptive Catalog! 
BELLCOM, Box 1043-A, Peterborough, 
Ontario, Canada, K9J 7A5.(2/89) 

Martian Solutions: BLOOD & DUNG Order 
BLOOD and you’ll receive a 3 + page detailed 
Order BLOOD walk-through of Captain Blook. 
Just 83-50 + .50 shipping. With the 100+ page 
DUNG (DUngeonMaster Notes Galore) you can 
finally solve FTL’s great game. Includes Spell 
List, Detailed Maps of ALL levels, hints, tips & 
solutions for the toughest puzzles. 89.95 plus 
81.05 shipping. Mars Merch. (address, etc. 
below.)Martian Light PhasarWe’ve converted a 
major manufacturer’s gun to be used with all 
Atari 8-bit computers. 100% compatible with 
the Atari XL/XE game system gun. We believe 
it to be more accurate and better weighted than 
most any gun in the universe. 839.95 plus 83 
shipping (UPS). 312/530-0988 MARS Merchan¬ 
dising, 15W614 Diversey, Elmhurst, IL 60126- 
1257 (2/89) 

AGAPE GAMES-5 CHRISTIAN GAMES. 

KINGS GLORY Arcade like Adventure with 26 
mazes and a maze maker. BIBLE WORD 
SEARCHER with 30 puzzles and a puzzle gener¬ 
ator. Plus 3 games that teach the Books of the 
Bible. For Atari 8-bit (requires 48K + disk) 
812.95-Daniel Sharpe, GPO 911, Chicopee, MA 
01021 .(3/89) 


ADVERTISING SALES 


West Coast Advertising Sales Representative: East Coast Advertising Sales Representative: 


Address all advertising materials to: 


AUSTIN HOLIAN 

544 Second Street 
San Francisco, CA 94107 
(415) 957-0886 


DAVID S. KESTER 

544 Second Street 
San Francisco, CA 94107 
(415) 957-0886 


KATE MURPHY 

Advertising Production Coordinator 
Antic Magazine 
544 Second Street 
San Francisco, CA 94107 































Advertisers 

Index 


PAGE NO. 

AMERICAN TECHNAVISION.1 

ANTIC SOFTWARE .60 

B & C COMPUTERVISION ..40 

COMPUTABILITY.20,21 

COMPUTER REPEATS.47 

COMPUTER MAIL ORDER.4,5 

COMPUTER SOFTWARE SERVICE.2 

COVOX.56 

LYCO .IFC, 16,17 

MAD SCIENTIST.56 

PSYGNOSIS.BC 

SOFTWARE DISCOUNTERS OF AMERICA . . IBC 

SPRINGBOARD.6 


This list is provided as a courtesy to our advertisers. ANTIC does not 
guarantee accuracy or comprehensiveness. 


Advertising Deadlines 


March 1989 

Insertion Orders: December 1 
Artwork: December 8 

On Sale: Last week of January 


April 1989 

Insertion Orders: January 2 
Artwork: January 9 

On Sale: Last week of February 


May 1989 

Insertion Orders: January 30 
Artwork: February 6 

On Sale: Last week of March 



Antic Classifieds 

544 Second Street, San Francisco, CA 94017 
Telephone (415) 957-0886 


Company 


Address 


City/State/Zip 


MasterCardA'isa Number 


Expiration Date 


Signature 

Enclosed is my payment for S _ 


Issue(s) Ad to Appear 


RATE: SI.00 PER WORD—twenty (20) word minimum. 

BOLDFACE: Add S7.50 per line for boldface words or add S40.00 for the entire ad set 
in boldface (any number of lines). 

STARS: Add S6.50 for one (1) line of six (6) stars ★★★★★★ at top of ad. 

TERMS: Prepayment is required. Check, Money Order, Visa or MasterCard is 
accepted. Make check payable to Antic Publishing. 

FORMS: Ads are subject to publisher’s approval and MUST BE TYPED. Please underline 
words to be set in boldface. 

GENERAL INFORMATION: Advertisers using Post Office Box numbers in their ads must 
supply permanent address and telephone numbers. Ad will appear in the next avail¬ 
able issue after receipt unless otherwise specified. 

DEADLINE: 90 days prior to cover date (e.g., December 1988 closes September 1, 
1988—December issue on sale November 1, 1988). 

Clip this coupon, attach to typewritten copy and send with remittance to address on 
the left. 

HANDWRITTEN COPY WILL NOT BE ACCEPTED 


AN AD IN ANTIC REACHES MORE THAN 100,000 SERIOUS ATARI USERS 

































B&(L . . 

ComputerVisions 


3257 Kifer Road 
Santa Clara, CA 95051 
(408) 749-1003 


A 


STORE HOURS 
TUE - FRI 10am - 6pm 
SAT - 10am - 5pm 
CLOSED SUN - MON 


800ILX/XE 

ENTERTAINMENT 

ACE OF ACES . 13.50 

ALIANTS . 26.95 

ALT. REALITY: 

THE CITY .26.95 

THE DUNGEON . 35.95 

BEYOND CASTLE WOLF.. 17.95 

BISHARK. 26.95 

CASTLE'WOLFENSTEIN.. 17.95 

GAUNTLET (64K) 31.50 

DEEPER DUNGEONS... 22.50 

GUNSLINGER . 26.95 

KARATEKA . 13.50 

KICKSTAR7 . 8.95 

LAST V-8 . 8.95 

MOUSETRAP . 17.95 

NINJA . 8.95 

SARACEN . 17.95 

SPEEDKING .. .. 8.95 

SPIDERMAX . 7.95 

SPITFIRE 40 . 31.50 

STRIP POKER . 26.95 

THE HULK . 7.95 

TOMAHAWK (64K) 26.95 

TOP GUNNER. 22.50 


SPORTS 

COMPUTER BASEBALL .. 13.50 
COMPUTER QUARTERBACK 13.50 

LEADERBOARD . 13.50 

MICROLEAGUE BASEBALL 35.95 
TRACK & FIELD . 26.95 


SOFTWARE 


35.95 


MUSIC 

MUSIC COMPEMDIUM .. 

MUSIC STUDIO. 31.50 

BANK ST. MUSIC WRITER 13.50 
VIRTUOSO. 44.95 

PROGRAMMING 

KYAN PASCAL. 62.95 

LIGHTSPEED C . 35.95 

LOGO . 19.95 

PILOT . 19.95 

PRODUCTIVITY 


ATARIWRITER . 

30. 

00 

CELEBRITY COOKBOOK .. 

26. 

95 

COMPUTE YOUR ROOTS .. 

35. 

95 

COMPUTER GOURMET .... 

26. 

95 

FAMILY FINANCE . 

12. 

,95 

HOME ACCOUNTANT . 

24. 

,95 

HOME FILING MANAGER . 

12. 

, 95 

NEWSROOM (1050 - 64K) 

44 . 

.95 

NEWS STATION . 

26. 

. 95 

NEWS STA. COMPANION . 

26. 

.95 

PAPERCLIP W/SPELL). ... 

29, 

.95 

POWER PRINT (1050)... 

13, 

.50 

PUBLISHING PRO . 

35, 

. 95 

SYNCALC . 

31, 

.50 

TIMEWISE . 

12 

.95 

VIDEO TITLESHOP (64K) 

26 

.95 

GRAPHICS COMPANION 

17 

.95 

VISICALC . 

24 

.95 

ART 



GRAPHICS MAGICIAN ... 

22 

.50 

BLAZING PADDLES . 

31 

.50 



ALIEN AMBUSH . 

ARCHON . 

ASTEROIDS . 

ATARI TENNIS . 

BALL BLAZER . 

BARNYARD BLASTER 

(REQ. LIGHT GUN)... 

BATTLEZONE . 

BLUE MAX . 

CENTIPEDE . 

CHICKEN (400/800).... 

CLAIM JUMPER . 

CLOUDBURST . 

DAVIDS MIDNIGHT MAGIC 

DEFENDER . 

DIG DUG . 

DONKEY KONG . 

DONKEY KNOG JR. 

E.T. PHONE HOME . 

FIGHT NIGHT (XL/XE).. 

FINAL LEGACY . 

FOOD FIGHT . 

FOOTBALL . 

FROGGER . 

FROGGER II . 

GALAXIAN . 

GATO . 

GYRUSS . 

HARDBALL . 

JOUST . 

JUNGLE HUNT . 

LODE RUNNER . 

MILLIPEDE . 


9.95 

19.95 

15.95 
9.95 

19.95 

24.95 

19.95 

19.95 

14.95 
9.95 
9.95 
9.95 

19.95 
14/95 
19.95 

5.00 

19.95 

9.95 

19.95 

19.95 

19.95 

14.95 
14.95 

14.95 

19.95 

24.95 

14.95 

19.95 
19.95 

19.95 

24.95 

19.95 


E/X E 


IE>GES 

<SJLi g 

MISSILE COMMAND . . . . 

5.00 

MOON PATROL . 

.. 19.95 

MR. COOL.. 

9.95 

MS. PAC MAN . 

.. 19.95 

ONE ON ONE (XL/XE).. 

.. 19.95 

PAC MAN .. 

5.00 

PAST FINDER . 

.. 24.95 

PENGO .. 

. . 19.95 

POLE POSITION . 


POPEYE .. 

.. 14.95 

Q-BERT . 

.. 14.95 

QIX .. 

. . 14.95 

RESCUE ON FRACTALAS 

. 19.95 

RETURN OF THE JEDI , 

.. 14.95 

ROBOTRON:2084 .. 

.. 19.95 

SKY WRITER .. 


SLIME (400/800)_ 

9.95 

SPACE INVADERS . 

.. 14.95 

STAR RAIDERS .. 

5.00 

STAR RAIDERS II ..., 

.. 19.95 

SUPER BREAKOUT _ 

9.95 

WIZARD OF WOR.. 

5.00 

ATARI XE GAME MACHINE 


$139.95 

Includes Missile Command, Flight 
Simulator II, Bug Hunt, light gun, 
joystick, BASIC programming 
language, and 64k of memory with a 
detachable keyboard. Add a disk drive 
and printer for a complete home 
computer system! 


800/XL/XE 

CHILDRENS EDUCA TIONAL SOFTWARE 


CBS 


TINKITONK! 


(age 3-6 on disk) 


(age 4-8 on disk) 


ERNIES MAGIC SHAPES .... 

8.95 

COUNT AND ADD . 

8.95 

ASTROGROVER . 

8.95 

BEING A SMART THINKER 

8.95 

BIG BIRD SPEC. DELIVERY 

8.95 

ABC's . 

8.95 



SUBTRACTION . 

8.95 

FISHER PRICE 


SPELLING . 

8.95 

(pre-school on cartridge) 


DEVELOP THINKING SKILLS 

8.95 

MEMORY MANOR . 

8.95 



LINKING LOGIC . 

8.95 

SAVE $13.75!!! 


DANCE FANTASY . 

8.95 

GET ALL 6 TINK! TONK! ' 

S FCF 

LOGIC LEVELS . 

8.95 

$39.95 


SPINNAKER 




ALF IN THE COLOR CAVES 
(age 3-6- cartridge).. 

9.95 

WEEKLEY READER 

ALPHABET ZOO 


(pre school - disk) 

(age 3-8 cartridge) .. 

9.95 

STICKY BEAR SHAPES .. 

26.95 

DELTA DRAWING 


STICKEY BEAR NUMBERS 

26.95 

(age 4-up cartridge) . 

9.95 

STICKEY BEAR ABC .... 

26.95 

FACE MAKER 




(age 3-8 cartridge) .. 

9.95 

HATH ENCOUNTER .... 

9.95 

HEY DIDDLE DIDDLE 




(age 3-10 disk). 

9.95 

HAYDEN 


KIDS ON KEYS 


(age 4-10 disk) 


(age 3-9 cartridge)... 

9.95 

MICRO ADD/SUBTRACT .. 

9.95 

KINDERCOMP 


MICRO SUBTRACTION ... 

9.95 

(age 3-8 cartridge)... 

9.95 

MICRO DIVISION . 

9.95 

STORY MACHINE 


(pre-school disk) 


(age 3-8 cartridge 


SHAPE UP! . 

9.95 

won't run on XL/XE). 

9.95 

MATCH UP! . 

9.95 


SZJEEFZ S EEC IX ES 

JH RECONDITIONED ATARI MERCHANDISE J|[_ 


▼ 


30 DAY WARRANTY 


ATARI 

TRACKBALL 

$9.95 

SPICE UP THE ACTION IN 
YOUR ARCADE GAMES!! 


400 (16K) 
COMPUTER 

$29.95 

48K UPGRADE KIT 
$25.00 


1020 COLOR 
PRINTER/PLOTTER 
$29.95 

40 COLUMNS WIDE 
INCLUDES PAPER AND 
COLOR PEN SET 


ATARI 

NUMERIC 

KEYPAD 

$7.95 

INCLUDES HANDLER 
DISK - 


BOOKS ONLY 
DE RE ATARI 10.00 
ATARIWRITER 10.00 
DOS 2.5 12.95 

BASIC REF. 5.00 
LOGO 10.00 

BOOKKEEPER 10.00 


600XL 

COMPUTER 

16K - $49.95 
64K - $59.95 


820 40 COLUMN 
PRINTER - $39.95 


1010 PROGRAM 
RECORDER 

$29.95 


410 PROGRAM 
RECORDER .-AS IS 
$9.95 (3 for $15) 


ATARI 

BOOKKEEPER 

$14.95 - NO BOX 

(19.95 WITH KEYPAD) 

$24.95 - IN BOX 

(29.95 WITH KEYPAD) 


ATARI 
SPACE AGE 
JOYSTICK 
$5.00 

GREAT GIFTS! 


800 (48K) 
COMPUTER 

$79.95 

INCLUDES BASIC 


1030 MODEM 
WITH 
EXPRESS! 

$24.95 

GET ONLINE TODAY! 


DISKETTES 
AS LOW AS 20 CENTS 
10 FOR #4.00 
100 FOR $29.95 
1000 FOR $200 
MOST ARE UNNOTCHED 
WITH OLD SOFTWARE 


SHIPPING INFORMATION - Prices do not include shipping and handling. Add $5.00 for small items ($8.00 Min. for Canada). Add $8.00 for disk 
drive. Calif, res. include 7% sales tax. Mastercard and Visa accepted if your telephone is listed in your local phone directory. Orders may be pre-paid 
with money order, cashier check, or personal check. Personal checks are held for three weeks before order is processed. C.O.D orders are shipped 
via UPS and must be paid with cash, cashier check or money order. International and APO orders must be pre-paid with cashier check or money 
order. $20.00 minimum on all orders. All sales are final - no refunds - prices are subject to change. Phone orders accepted TUESDAY THROUGH 
FRIDAY from 10:00 am to 6:00 pm PST. 

We carry a complete line of ATARI products and have a large public domain library. Write or call for free 
catalogue. (408) 749-1003 TUE - FRI 10AM - 6 PM 


PRICES SUBJECT TO CHANGE WITHOUT NOTICE - ALL SALES ARE FINAL 
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Figure 1, A 


Figure I, B 




Figure 1, C 


Figure 2 


HARD-WIRED 

Ray Facing 

Shadows and reflections for your 8-bit graphics. By Michael Bjorkman 

Hard-Wired Ray Tracing creates complex pictures with multi¬ 
colored patterns, reflections and movable objects, not unlike the 
famed “Shiny Bubbles” demo on the Atari ST. This BASIC program 
works on XL and XE computers with at least 64K memory and 

disk drive. Type-In Software H 
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I f you follow the ST scene, 
you may have seen Xanth 
Park’s “Shiny Bubbles” demo, 
or pictures created with Tom 
Hudson’s “Ray-Trace Construction 
Set” (START, Spring 1987). These im¬ 
ages were made using principles of 
ray tracing, a process now brought to 
the 8-bit Atari with Hard-Wired Ray 
Tracing. 

Figure 1 is a series of pictures made 
with Hard-Wired. Note the reflections 
of the floor and ceiling on the sphere. 
The reflections were created with ray 
tracing algorithms. 

The floor and ceiling are actually 
distorted Micro Illustrator and 
Micropainter pictures. Hard-Wired 
shrinks these pictures into little 
squares, then uses these squares to tile 
the ceiling and floor. Figure 2 shows 
the Micro Illustrator picture used to 
tile the floor. 

Our frame of reference is kept as 
simple as possible by restricting the 
program to one ceiling, one floor and 
one sphere. At this level, we only need 
a tiny set of equations to handle ev¬ 
ery possible reflection. Hence, the 
program is called “Hard-Wired” be¬ 
cause all of the necessary geometric 
equations are explicitely defined, or 
“hard-wired” into the program. 

GETTING STARTED 

Use your own Micro Illustrator and 
Micropainter microscreens to create 
your own ray traced images. You’ll 
need at least two—one for the floor 
tiles and one for the ceiling tiles. If 
you want to use pictures created with 
other paint programs, use the Rapid 
Graphics Converter (Antic, Novem¬ 
ber 1985) to convert them to a com¬ 
patible form. 

Next, type in Listing 1, HARD- 
WIRE.BAS, checking it with TYPO II, 
and SAVE a copy before you RUN it. 

If you have trouble typing the spe¬ 
cial characters in lines 2190, 7070- 
7130 and 8000, don’t type them in. 
Instead, type Listing 2, check it with 
TYPO II and SAVE a copy. When you 
RUN Listing 2, it creates these hard- 


to-type lines and stores them in 
a file called LINES.LST. To merge the 
two programs, disk users LOAD 
‘ ‘D: HARDWIRE. BAS and then EN¬ 
TER “D:LINES.LST.” Remember to 
SAVE the completed program before 
you RUN it. 

When RUN, the program asks 
several introductory questions, in¬ 
cluding the position of your eye and 
the location and size of the sphere. 

The first prompt asks you for the 
coordinates of your viewpoint (the 
position of your eye relative to the 
screen.) Under this coordinate system, 


(0,0) represents the top-left corner of 
your screen, (319,0) represents the 
top-right corner, and (319,191) is the 
bottom-right corner. 

The Z-axis runs “through” your 
monitor. Objects “inside” your mon¬ 
itor have positive Z values; those in 
front of your monitor have negative 
values. For example, the coordinates 
(319,191,-100) name a point 100 units 
in front of the bottom-right corner of 
the screen and the point (0,0,0) is on 
the surface of the screen at the top- 
left corner. 

Type in the coordinates of your 
viewpoint. 

Remember that your viewpoint is 
always “outside” the monitor, so your 
Z-coordinate must be negative. Z- 


values that are very “close” to the 
screen (between 0 and -200) result in 
a sphere that looks like an ellipse. 

Recommended Z-values are around 
-450. At this distance, all portions of 
the screen are relatively the same dis¬ 
tance from the viewpoint, and the 
sphere appears circular. 

If you don’t know what values to 
use, press [RETURN] and Hard-Wired 
will use the center of the screen as 
your viewpoint. 

Next, type in the coordinates of the 
center of the sphere. Be sure to place 
the sphere below the ceiling, above 


the floor, and not too far left or right. 
Otherwise, it will not be on the 
screen. Values near the center of the 
screen work best. 

Again, if you don’t know what 
values to use, just press [RETURN] and 
Hard-wired will place the sphere in 
the upper-left part of the screen. 

Now, type the radius of the sphere. 
This number must be small enough 
for the sphere to fit entirely between 
the ceiling and the floor. Otherwise, 
the program will print COORD 
ERROR on the screen and re-prompt 
for the radius. If you can’t think of a 
value, press [RETURN] and Hard- 
Wired will calculate a legal one for 
you. 

The next two questions let you 
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move the pictures within the floor 
and ceiling tiles. If you’re creating a 
series of screens for a “Shiny 
Bubbles’’-style animation, you can 
use this feature to scroll the floor and 
ceiling back and forth or side to side. 
The floor and ceiling move as one; 
they cannot be moved indepen¬ 
dently. 

If you type 160,0, the image will 
be moved left, with what would have 
been the middle of the floor tile 
moved to the left side of the tile. Typ¬ 
ing 0,-95.5 will set the bottom of the 
screen half a floor tile deeper “into” 
the image. 

Next, Hard-Wired asks if you want 
to use its Dimming feature. Type Y to 
use this feature, or N (or [RETURN]) 
to shut it off. 

Finally, Hard-Wired asks you for the 
microscreens you want to use for the 
floor and ceiling tiles. You can use 
Micro-Painter or Micro Illustrator 
screens. You do not have to type the 
“D:” prefix when typing their file¬ 
names. Once Hard-Wired loads both 
screens, the screen will go dark and 
it will begin plotting the ray-traced 
image. 

When it’s done, Hard-Wired saves 
the image to a Micropainter- 
compatible file called TRACE.PIC. If 
you want to use a different filename, 
type it into line 1380. 

DIMMING 

When light reflects from an object 
in the real world, part of the light is 
absorbed and part of it is reflected. 
This makes the reflected image appear 
somewhat dimmer. 

When you use the Dimming fea¬ 
ture, Hard-Wired will dim the rays 
reflecting off of the sphere. This limits 
the number of colors you can use in 
your original microscreens because 
each each color will require two color 
registers—one register for the 
dimmed color and one for the pure 
color. 

Hard-Wired dims the rays by 
decrementing the color register num¬ 
ber. For example, a ray hitting the 


floor on a pixel with the color in reg¬ 
ister 3 is reflected from the sphere as 
the color in register 2. A color in reg¬ 
ister 0 is reflected as color register 0. 

Since Hard-Wired uses GRAPHICS 
15, a four-color mode, you may only 
want to use two of the available colors 
when drawing your microscreens. Al¬ 
ternatively, you may want to draw 
your original microscreens with 
several shades of a single color, such 
as white, light gray, dark gray and 
black. If you wish to change the 
colors that Hard-Wired uses, just alter 
the SETCOLOR statements in lines 
2040-2070. 

RAY TRACING 101 

Ray-traced images are made by 
reversing the path that a ray of light 
takes to your eye. A diagram of one 
path that a ray may take is shown in 
Figure 3 . This ray’s path begins at 
your eye (the viewpoint), passes 
through the screen and into the room 
containing the sphere. 

Once in the room the ray might hit 
the ceiling, the floor, or the sphere. 
If the ray hits the sphere, it is reflected 
onto the floor or the ceiling. In any 
case, every ray that enters the room 
eventually lands somewhere on the 
floor or ceiling. 

When the ray lands, the program 
notes the color of its “point of con¬ 
tact.” This color is “mapped” onto the 
screen at the point where the ray 
passed through it. If we trace a ray for 
every point on the screen, eventually 
we’ll have a complete picture. 

ANIMATIONS 

Once you feel comfortable with 
Hard-Wired, you can build anima¬ 
tions, featuring scrolling floors and 
moving spheres. 

Hard-Wired will not animate your 
microscreens; you must use a separate 
animation or page-flipping program 
instead. MovieMaker will do the job, 
however you’ll have to use Antic’s 
Rapid Graphics Converter to convert 
your hard-Wired pictures from Micro- 
Painter to MovieMaker format. Since 


MovieMaker pictures have half the 
resolution of Micro-Painter pictures, 
your microscreens will appear 
coarser. However, you’ll be able to fit 
twice as many screens into an ani¬ 
mation. 

There are also many public domain 
page-flipping programs. They’re also 
simple to write. See Dave Plotkin’s 
Page Flipping, A Racy Tutorial 
(Antic, January 1984) and Ian Chad¬ 
wick’s 130XE Memory Management 
(Antic, November 1985) for more in¬ 
formation on page-flipping. 

Hard-Wired’s screen is turned off to 
hasten the computations by 15 to 30 
percent. Press [OPTION] to see the 
picture as it is being drawn. Using 
Atari BASIC, each image takes about 
two hours to calculate. You can 
achieve much faster speeds with 
BASIC XE’s “FAST” mode or Tur- 
boBASIC. 

PROGRAM TAKE-APART 

Lines 1000 to 1640 contain the 
“hard-wired” ray-tracing equations 
needed to map the pixels onto the 
sphere, floor and ceiling. 

Lines 1650 to 1780 use INPUT state¬ 
ments to get the coordinates of the 
viewpoint and the sphere, the sphere’s 
radius, and the displacement of the 
floor and ceiling tiles. 

Lines 1880 to 2010 load the two 
microscreens into RAM. One 8K 
block of memory is set aside for each 
screen, and a third block is used to 
plot the final ray-traced image. All in 
all, Hard-Wired is manipulating three 
complete microscreens and three sep¬ 
arate display lists. 

Hard-Wired finds the spot where 
the ray hits the floor or ceiling, then 
uses the LOCATE command to deter¬ 
mine the color of the pixel it hit. 
Hard-Wired then finds the spot where 
the ray passed through the screen and 
colors it with this color. A 


Michael Bjorkman of Seattle, Washing¬ 
ton is making his first appearance in 

Antic. 

Listing on page 30 
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H Type-In Software 

EQUIVALENCE 

New way to speed up your BASIC programs. 


By Doug White 


Equivalence teaches intermediate-level program¬ 
mers how to use a powerful technique that speeds 
up common BASIC operations by as much as 150 
percent. Included BASIC demonstration programs 


FIGURE 1 


(RAMdisk) 

ATARI BASIC 

Dl: 

D8: 

INITIALIZE M(3334) 

39.50 

39.50 

INITIALIZE S$(20004) 

0.33 

0.33 

M(3334) - Dn:ARRAY.DAT 

99.03 

53.58 

SS5(20004) -* Dn:STRING.DAT 

83.95 

5.73 

Dn:ARRAY.DAT -* M(3334) 

9195 

64.65 

Dn:STRING.DAT -*• SS5(20004) 

19.48 

0.44 


Atari BASIC is a very friendly pro¬ 
gramming language, but certain oper¬ 
ations can be rather slow. Disk I/O, in¬ 
teger calculations, FOR-NEXT loops, 
etc. all involve floating-point calcula¬ 
tions requiring six storage bytes for 
each variable used. These operations 
are slow because they require many 
integer-to-floating-point and floating- 
point-to-integer conversions. 

String operations, on the other 
hand, are quite speedy. “Equivalenc- 
ing” lets you apply these speedy oper¬ 
ations to other types of data. 
Equivalencing can make numeric disk 
I/O and other operations run up to 
150 times faster. 

EQUIVALENCING 

Equivalencing simultaneously 
treats blocks of data as string data and 
as floating-point data. 

Your Atari stores strings and num¬ 
bers as bytes in RAM. BASIC uses a 
series of tables to remember which of 
these bytes are part of strings and 


which bytes represent floating-point 
numbers. By changing these tables 
you can take a series of bytes that rep¬ 
resent a floating-point number and 
make BASIC treat these bytes as a 
string as well as a number. 

These tables also contain the loca¬ 
tions of all the variables in your pro¬ 
gram. They work like an address 
book. Once BASIC determines 
whether a series of bytes contain a 
string or a floating-point number, it 


goes back to these tables to find the 
location of these bytes. 

Change these tables and you 
change the memory locations that 
BASIC will search for the values of 
your variables. It’s like telling your 
mother-in-law that you moved to Bor¬ 
neo. The next letter she sends you will 
end up in Indonesia. 

By altering the values in these ta¬ 
bles, you can take any block of mem¬ 
ory and treat it like a string. 
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Equivalencing techniques let you 
take advantage of BASIC’s speedy 
string operations while avoiding time- 
consuming floating-point conver¬ 
sions. 

SPEED DEMOS 

Listing 1 uses sound to illustrate this 
dramatic improvement in speed. Type 
in Listing 1, EQUIV1.BAS, check it 
with TYPO II and SAVE a copy to 
disk. Be sure to remove the TYPO II 
program, as described in the TYPO 
II instructions, before you RUN the 
program. 

The first part of the program plays 


tables, fooling BASIC into thinking 
that S$ has moved to a different ad¬ 
dress (the audio control registers). 

The next time BASIC looks for the 
bytes in S$, it’ll end up at the audio 
control registers. Since BASIC thinks 
that S$ is located at the audio control 
registers, anything we put into S$ will 
appear in these registers. 

Here’s an example. If we tell BASIC 
that S$ begins at memory location 
53760 (the address of the first audio 
control register) then: 

S$(1)=“A” 

ASC(‘A”) = 65 

has the same effect as (but much 


reads it back again. The first time the 
program does this, it uses GET, PUT 
and other conventional methods of 
handling data. Then, the program 
does the same thing all over again, but 
this time it uses speedy equivalenc¬ 
ing techniques. 

The entries in Figure 1 are the run 
times in seconds for each part of List¬ 
ing 2 when M() has 3,334 elements. 

Type in Listing 2, EQUIV2.BAS, 
check it with TYPO II and SAVE a 
copy to disk. Be sure to remove the 
TYPO II program, as described in the 
TYPO II instructions, before you RUN 
the program. 


work on all 8-bit Atari computers of any memory 
size, with disk drive. The article also explains how 
to use the Turbo BASIC XL language for even 
greater speed. 


FIGURE 2 


(RAMdisk) 

Turbo BASIC XL 

Dl: 

D8: 

INITIALIZE M(3334) 

9.55 

9.55 

INITIALIZE S«S(20004) 

0.27 

0.27 

M(3334) -> Dn: ARRAY.DAT 

84.72 

22.18 

S$(20004) -*• Dn:STRING.DAT 

52.97 

0.40 

Dn:ARRAY.DAT - M(3334) 

50.70 

21.88 

Dn:STRING.DAT -» S$(20004) 

19.32 

0.42 


all four voices using BASIC’s SOUND 
command. 

This part of the program can be 
slightly accelerated by POKEing the 
sound data directly into the audio 
control registers (memory locations 
53760-53768). 

The second part of the program 
uses an equivalenced string to fill all 
audio control registers at once. First, 
the program DIMensions a string 
called S$. Then it alters the variable 


quicker than): 

POKE 53760,65 

We’ve just equivalenced a string 
variable to a specified block of 
memory—the audio control registers. 
Listing 2 shows you how to equiva¬ 
lence a string to a numeric array to 
speed up data handling. 

DATA HANDLING 

Listing 2 creates a sample floating¬ 
point array, M(), writes it to disk and 


When RUN, the program asks you 
to choose the size of the sample 
floating-point array. As written, the 
program cannot handle such arrays 
DIMensioned above 4,000. 

Next, the program equivalences ar¬ 
ray M() to a string, S$, and begins fill¬ 
ing M() with numbers. Since M() and 
S$ are equivalenced, every value 
placed in M() also appears in S$, but 
in a slightly different form. 

Since BASIC stores numbers as six- 
byte binary coded decimals (BCD), 
your equivalenced string requires 6 
characters for each floating-point 
number. For example, the number 
41.4243444 is internally represented 
as @ABCDE. 

So if you wanted to equivalence an 
array containing 3,334 numbers, 
you’d need a string DIMensioned to 
(6x3,334) or 20,004. 

TIMING 

The program also times itself. The 
first column of entries in Figure 1 is 
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for my own disk drive—a single den¬ 
sity Indus GT. The times you get may 
be different if you use a different 
brand of disk drive. The second 
column in Figure 1 contains run times 
for a RAMdisk. 

The first entry in Figure 1 is the 
number of seconds it takes to write 
3,334 elements (20,004 bytes) from 
M() to a disk file named D1:AR- 
RAY.DAT If the same data gets writ¬ 
ten as a 20,004-byte string to a disk 
file named Dl:STRING.DAT, the run 
time decreases from 99.03 seconds to 
83-95 seconds. If you write the data 
to RAMdisk files, writing to the string 
is almost ten times faster than writ¬ 
ing to the floating-point array, 53-58 
seconds and 5.73 seconds, respec¬ 
tively. 

The increase in the speed of in¬ 
itializing the arrays is even more im¬ 
pressive. Ordinarily you’d initialize a 


floating-point array with a FOR-NEXT 
loop, such as in line 540 of Listing 2. 

You can do the same thing with an 
equivalenced string in two quick 
steps. Assign the first element the 
regular way, M(0) = -1. Since S$ is 
equivalenced to M(), this assignment 
will also change the first six bytes of 
S$. 

Now you can copy the first six bytes 
throughout the rest of the string with 
the statement: 

S»C7)=S$(1) 

This statement will change every 
value in M() to -1. The equivalenced 
string method is 120 times faster than 
the FOR-NEXT loop for an array of 
3,334 elements. 

The bad news is that BASIC lacks 
a speedy way to read DLSTRING.DAT 


back into S$. So we resort to a little 
machine language. 

The subroutine beginning at line 
3000 in Listing 2 uses your Atari’s 
built-in CIO (Central Input/Output) 
routines to read a disk file into a string 
at machine language speed. 

In this routine, AD is address of the 
string. It is broken into low- and high- 
bytes in line 3000. The expression 
POKE I + 8,255:POKE 1 + 9,255 tells 
CIO to read as many bytes as it can, 
up to 65,535 bytes, or until it reaches 
the end of the file. Line 3030 contains 
the USR function which starts the CIO 
routines. When CIO is through, line 
3040 calculates the number of bytes 
which have been read and stores it in 
N. 

To learn more about CIO, read the 
CIOV section (location 58454) of Ian 
Chadwick’s “Mapping The Atari” 
($16.95, Compute! Publications). 


TURBO BASIC XL 

If you own an XL or XE, Turbo 
BASIC XL also has the fast I/O com¬ 
mands you need. 

Turbo BASIC XL is by Frank Oz- 
trowski, of West Germany, author of 
Michtron’s GFA BASIC for the Atari ST. 
Turbo is a public domain BASIC inter¬ 
preter and compiler that offers a 
more powerful programming envi¬ 
ronment. It’s available on Com¬ 
puServe’s 8-bit Atari Forum and from 
many Atari users groups. 

Turbo BASIC supports structured 
programming, provides new I/O, edit¬ 
ing, and DOS functions, and RUNS 
several times faster than Atari BASIC. 
Unfortunately, it does not work on 
Atari 400 or 800 computers. 


Turbo BASIC XL has %GET and 
%PUT commands to read and write 
numeric data to and from disk, and 
BGET and BPUT to read and write 
string data to and from disk. Substitut¬ 
ing these commands for the Atari BA¬ 
SIC commands in Listing 2 will give 
you the run times listed in Figure 2. 
The Turbo BASIC commands and 
their Atari BASIC equivalents are in 
lines 630-640, 730-740, 1070-1080 
and 1200-1210. 

Turbo BASIC is somewhat faster 
than Atari BASIC for the floating-point 
routines. Reading into S$ from RAM¬ 
disk or writing S$ to RAMdisk takes 
only four tenths of a second in Turbo 
BASIC! If the string is a little smaller, 
such as 8,138 bytes (the size of a 
GRAPHICS 8 screen & display list) the 
read and write times are less than two 
tenths of a second. Reading or writ¬ 
ing a GRAPHICS 0 screen (992 bytes) 
to or from RAMdisk takes one tenth 
of a second. 

The net effect is that programs us¬ 
ing Turbo BASIC, RAMdisks and 
equivalencing will transfer data 130 
to 150 times faster than programs 
which don’t use these techniques. If 
you add the extra time that a physical 
disk drive takes, the increase in speed 
is two to five times, still a significant 
increase. 

HOW IT WORKS 

Let’s take a closer look at the 
way BASIC handles variables. In 
Atari BASIC (and all compatible 
BASICs) variables are stored in tables. 
The three tables of interest here are 
the variable name table, the variable 
value table, and the string and array 
table. 

VARIABLE NAME TABLE 

The variable name table is merely 
a list of all of the names of the varia¬ 
bles used in your program. Instead of 
putting a space between the variable 
names (and wasting a byte), the last 
character in each name is stored as an 
inverse character. If our program con¬ 
tains the variables— TOTAL, AR- 


E quivalencing avoids 

time-consuming floating¬ 
point conversions. 
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RAY(5), and NAMES(IO)—the variable 
name table would look like this: 

TOTAriARRAYBNAhES 

Atari BASIC recognizes three classes 
of variables—scalars, floating-point 
arrays and strings. If the last charac¬ 
ter in the variable name is an inverse 
letter or number, as in TOTAL, the 
variable is a simple floating-point 
number called a scalar. 

If the last character is an inverse 
open parenthesis, as in ARRAY, the 
variable is a floating-point array. And 
if the last character is an inverse dol¬ 
lar sign, as in NAMES, it is a string 
variable. 

The address of the beginning of the 
variable name table is stored in mem¬ 
ory locations 130 (low byte) and 131 
(high byte). Calculate the starting ad¬ 
dress of this table with the equation: 

PEEK(130) + PEEK(131) * 256 


The ending address of the variable 
name table is one less than the num¬ 
ber stored in memory locations 132 
and 133- 

VARIABLE VALUE TABLE 

The variable value table contains 
type and size information about each 
variable. The starting address of the 
variable value table is kept in mem¬ 
ory locations 134 and 135. 

Each variable in the variable name 
table has a corresponding eight-byte 
block of information in the variable 
value table. These blocks are kept in 
the same order as the names in the 
variable name table. 

The first byte in each block 
represents the variable type. A 0 
represents a scalar, 64 and 65 denote 


floating-point arrays, and a 128 or a 
129 represent a string variable. 

The second byte of each block is 
the variable number (0—127) as as¬ 
signed by BASIC. 

If the variable is a scalar, the remain¬ 
ing six bytes contain its binary coded 
decimal (BCD) value, as described 
above. 

If the variable is a floating-point 
array or a string, the third and fourth 
bytes contain the location of the array 
(or string). This location is not a 
memory address , but its offset into a 
table containing all the strings and 
arrays used in your program. This ta¬ 
ble, called the string and array table, 
is discussed later in this article. 

If the variable is a floating-point 
array, the fifth and sixth bytes are 
equal to one plus the first DIMension 
size, and bytes seven and eight are 
equal to one plus the second DI¬ 


Mension size. 

For example, the statement DIM 
ARRAY(7,13) would set bytes five and 
six equal to 7 +1, or 8, and bytes seven 
and eight would equal 13 + 1, or 14. 
(If ARRAY was a one-dimensional 
array, bytes 7 and 8 would equal 0 + 1, 
or 1.) 

If the variable is a string, the fifth 
and sixth bytes contain the current 
length of the string. The seventh and 
eighth bytes contain the DIMensioned 
size of the string. 

For example, when BASIC 
processes the statement DIM 
NAME$(10), it sets bytes five and six 
to zero because the LENgth of NAME $ 
is zero. (Bytes five and six remain at 
zero until your program puts some¬ 
thing into NAME$.) 


Bytes seven and eight would equal 
ten, the DIMensioned size of the 
string. 

STRING & ARRAY TABLE 

The string and array table contains 
the contents of all the strings and 
arrays used in your program. The 
starting address of this table is kept in 
memory locations 140 and 141. 

Each time your program introduces 
a new string or array, its contents are 
appended to the string and array ta¬ 
ble. BASIC keeps track of these varia¬ 
bles by noting their offset from the be¬ 
ginning of the string and array table, 
and storing this number in the vari¬ 
able value table. 

In other words, the first array is lo¬ 
cated at the beginning of the string 
and array table and has an offset of 
zero. The second array’s offset would 
be equal to the size of the first array. 

HOW TO EQUIVALENCE 

These variable tables let BASIC give 
each variable a unique set of data that 
points to a unique area of RAM. When 
you equivalence two variables, you 
manipulate these tables so that the 
two variables share the same area of 
RAM. Scalars, arrays, and strings may 
be equivalenced in any combination, 
as long as the equivalenced memory 
locations do not overlap other 
variables. 

Once you understand how the vari¬ 
able tables work, equivalencing is 
merely a matter of altering the eight- 
byte blocks in the variable value ta¬ 
ble. Just copy the array’s offset and 
dimension information into the off¬ 
set and dimension information of the 
string. Here’s an example: 

NEW 

DIM A$(1),B(2) 

After BASIC processes these state¬ 
ments, the variable name table will 
look like this: 

AEBB 

And the variable value table will 
look like this: 

nmminmnLiiH 

AUilHWPlPLUW 


F loating-point calculations 

are slow compared to string 
operations. 
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Which is equivalent to: 

129 0 0 0 0 0 1 0 
(entry for AS) 

65 1 1 0 3 0 1 0 
(entry for B()) 

Let’s interpret each eight-byte block. 
In the first block, the first byte, a 129, 
tells us that the variable is a string. The 
second byte, a 0, means that it is vari¬ 
able number 0—the first variable in 
your program. It also means it’s the 
first entry in the variable name table, 
AS. 

Bytes three and four, also zeros, 
mean that its offset from the begin¬ 
ning of the string and array table is 
zero. 

Since no elements have been en¬ 
tered, AS has a LENgth of 0 (bytes 
5 and 6 = 0), but has been DI- 
Mensioned to 1 (byte 7 = 1 and byte 
8 = 0 ). 


The second block contains infor¬ 
mation about the second variable. 
Here, the first byte, a 65, tells us that 
the variable is a numeric array. The 
second byte, a 1, means that it is vari¬ 
able number 1—the second variable 
in your program. It also means it’s the 
second entry in the variable name ta¬ 
ble, B(). 

Bytes three and four, a one and a 
zero, mean that the B() offset from the 
beginning of the string and array ta¬ 
ble is one—the maximum size of the 
previous variable AS. 

Bytes five through eight contain the 
variable’s DIMensioned size. BASIC ar¬ 
rays may have up to two indexes, and 
both sizes are stored here. Bytes five 
and six show the DIMensioned size 
of the first index + 1. Bytes seven and 


eight show the DIMensioned size of 
the second index + 1. 

In this example, the DIMensioned 
size of the first index is 2. Byte five 
contains (2 +1), or 3, and byte six con¬ 
tains zero. 

Since there is no second index, its 
value is 0. Byte seven contains (0 +1), 
or 1, and byte eight contains zero. 

To equivalence A$ and B(), copy 
bytes three through eight of block two 
into bytes three through eight of block 
one. The variable value table will now 
look like this: 

129 0 1 0 18 0 18 0 
(entry for AS) 

65 1 1 0 3 0 1 0 
(entry for B()) 

Block two has not changed, but 
block one now points to the same 
memory locations as block two. Both 
now have the same offset into the 


string and array table. 

You’ll notice that bytes five through 
eight were not copied as you’d have 
expected. These bytes, describing the 
DIMensioned size of the array, ap¬ 
pears to have jumped from 3 to 18! 

Nothing’s really changed, though. 
As an array, B() may hold up to three 
floating point numbers. Since your 
Atari needs six bytes to store a single 
floating point number, it needs 18 
bytes to store three of them. Thus, if 
AS and B() are to use the same piece 
of RAM, AS must be 18 bytes long. 

Since AS and B() now occupy the 
same 18 memory locations, any 
change in AS will affect B() and vice 
versa. 

Substring Array Element 

A$( 1, 6) < - > B(0) 


AS( 7,12) <-> B(l) 

AS(13,18) < -> B(2) 

AS was originally DIMensioned for 
one element for the sake of simplic¬ 
ity. If AS had a DIMension of 600, its 
new offset would be 600 after 
equivalencing. 

Bytes 0 to 599 of the string and ar¬ 
ray table would be inaccessible 
memory. 

Inaccessible AS and B() 
Memory stored here 

Bytes 0 to 599 600 to 617 

If you don’t like wasting this much 
memory, you can alter the variable 
value table so that the offset and 
DIMensions of both AS and B() in¬ 
clude all 618 bytes. 

AS would then have a DIMension 
of 600 + 3 * 6, or 618. B() would 
have a DIMension of 600/6 + 3, or 
103. Wasting memory will usually not 
affect your program. However, you 
should be aware of some potential 
problems with equivalenced 
variables. 

POTENTIAL PROBLEMS 

Losing your place. This happens 
when you incorrectly equivalence 
your variables. This can happen when 
creating the equivalence, or whenever 
the program processes a misplaced 
CLR statement. 

A CLR statement zeroes all of the 
variables and sets the offsets, string 
lengths, and array dimensions to zero 
in the variable value table. The equiva¬ 
lence between variables is destroyed. 

When you re-dimension the strings 
and arrays, BASIC once more assigns 
a unique offset for each. Each variable 
will control its own part of memory 
again. 

Finally, remember that the order of 
your variables in the variable tables is 
subject to change whenever you LIST 
your program to disk. The 
SAVE/LOAD commands preserve your 
program’s original variable name ta¬ 
ble. The LIST/ENTER commands do 
not. When a LISTed program is EN- 
TERed, BASIC builds a new variable 
continued on page 56 


T he increase in the 

speed of initializing arrays 
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Error 

Trapping 

in Atari BASIC 

Crashes that you can prevent. By Heidi Brumbaugh, START Programs Editor 


Of the hundreds of program submis¬ 
sions Antic receives each year, many 
which are otherwise excellent must 
be rejected because they lack error 
trapping. No matter how thoroughly 
you test your program, errors can still 
crash it during operation simply be¬ 
cause the user isn’t as familiar with it 
as you are. This article will show you 
some error-trapping routines de¬ 
signed to make everybody’s life easier. 

Before sending your program out 
into the world, ask yourself, “Will 
something as simple as a user’s mis¬ 
interpretation of a prompt make the 
listing crash? 

You’ve already done the hard 
part—making your program under¬ 
standable to the machine. Now you 
just need to fine-tune it for sensitiv¬ 
ity to any off-the-wall keystroke com¬ 
binations the user tries. 

SET A TRAP 

To make sure our program—not the 
operating system—takes control 
when an error occurs, we must first 
tell the computer, “If there’s an error, 
let the program handle it.” Predict¬ 
ably, this is called error trapping. The 
BASIC syntax we need to use is: TRAP 



linenum. 

Here linenum is the program line 
for the computer to go to if an error 
occurs. At linenum we analyze the sit¬ 
uation and act accordingly. Put this 
statement at the beginning of your 
program to enable error trapping be¬ 
fore any problems crop up. 

The trap must be reset each time an 
error occurs. Otherwise the operating 
system resumes control the next time 
there’s an error. A good place to reset 
the trap is at the first line of your error¬ 
handling routine—but make sure it 
doesn’t have any bugs. If you always 
put a TRAP statement there, you 
won’t have to worry about the oper¬ 
ating system taking over when you 
don’t want it to. 


You don’t need to have an error to 
declare a new TRAP statement. When 
the computer encounters a TRAP 
statement, it remembers only the new 
line number and goes there if an er¬ 
ror occurs. Thus we can have one cen¬ 
tral location for handling errors. Or 
we can reset the trap and go to differ¬ 
ent error-handling routines depend¬ 
ing on where the error occurs. We’ll 
use the second method in these ex¬ 
amples, but you’ll learn how to do it 
either way. 

Of course, you won’t always be able 
to deal effectively with an error. Un¬ 
foreseen circumstances do tend to 
arise. The BASIC equivalent to throw¬ 
ing your hands up and telling the 
operating system, “I don’t know what 
to do —you handle it” is to set a TRAP 
statement to an illegal line number. 
(BASIC allows line numbers between 
0 and 32767.) Most programmers use 
40000. This shuts off any previous 
TRAP statements. 

Let’s experiment, using the exam¬ 
ple of a user trying to write to a write- 
protected disk. We can handle this 
easily by asking the user to remove the 
write-protect tab and try again. 

100 TRAP 30000 
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110 OPEN #1,8,0,“D: DUCKS. DAT” 
120 ? #1,“Donald” 

130 ? #l,“The, Howard” 

140 ? #1 “Daffy” 

143 ? #1 “Sitting” 

150 CLOSE #1 

160 ? “Names entered.” 

170 END 

30000 TRAP 30000:REM Reset trap 
30010 CLOSE #1:REM Close 
channel 

30020 ? :? “Disk is write-pro¬ 
tected.”:? 

30030 ? “Please remove write-pro¬ 
tect tab and” 

30040 ? “put disk back in drive.”:? 
30050 ? “Press any key to con¬ 
tinue.”: POKE 764,255 
30060 IF PEEK(764)= 255 THEN 
30060:REM Wait for keypress 
30070 POKE 764,255:REM Clear 
last key pressed 

30080 GOTO 110:REM Try again 
This program works fine if it en¬ 
counters the error we’ve anticipated. 
However, the key to error trapping is 
to consider every possible error. Here, 
the disk drive may be empty or dis¬ 
connected, or the disk may be full or 
even have a bad sector. 

The computer stores the number of 
the last error encountered in memory 
location 195- We can use this infor¬ 
mation to modify our error-trapping 
routine. 

100 TRAP 30000 

110 OPEN #1,8,0,“D:DUCKS.DAT” 

120 ? #1,“Donald” 

130 ? #1 “The, Howard” 

140 ? #1,“Daffy” 

145 ? #1 “Sitting” 

150 CLOSE #\ 

160 ? “Names entered.” 

170 END 

30000 TRAP 30000: REM Reset trap 
30010 CLOSE #1:? :REM Close 
channel 

30015 ERR = PEEK(195) 

30020 IF ERR = 144 THEN 
30150:REM Disk is write-protected 
30030 IF ERR = 138 THEN 30200: 
REM Device does not respond 
30040 IF ERR = 139 OR ERR =164 
THEN 30250:REM Having odd 


problems 

30050 IF ERR = 140 OR ERR = l42 
OR ERR = 143 THEN 30300:REM Disk 
may be damaged 

30060 IF ERR = 162 THEN 30350: 
REM Disk full 

30070 IF ERR = 167 THEN 30400: 
REM File locked 

30080 IF ERR = 169 THEN 30450: 
REM Directory full 

30090 ? “Error number “;ERR;” has 
occurred.”:GOTO 30500:REM Don’t 
know what’s happened 

30150 ? “Disk is write-protected.”:? 

30160 ? “Please remove write-pro¬ 
tect tab and” 

30170 ? “put disk back in drive.” 

30180 GOTO 30500 

30200 ? “Device is not 

responding.” 

30210 ? “Check disk drive cables 
and try again.” 



30220 GOTO 30500 

30250 ? “I’m having trouble open- 
ning file.” 

30260 ? “I suggest you check disk 
drive” 

30270 ? “and try again.” 

30280 GOTO 30500 

30300 ? “Your diskette may be 
damaged.” 

30310 ? “I suggest you try again or 
use” 

30320 ? “another disk.” 

30330 GOTO 30500 

30350 ? “Disk is full.” 

30360 ? “Please insert a new disk 
& try again.” 

30370 GOTO 30500 

30400 ? “You already have a 
DUCKS.DAT file” 

30410 ? “and it is locked. Insert 


new disk” 

30420 ? “and try again or abort 
operation.” 

30430 GOTO 30500 
30450 ? “You can only have 64 files 
on a disk.” 

30460 ? “Please insert new disk and 
try again” 

30470 ? “or abort operation.” 
30500 ? :? “Press R to retry; A to 
abort.” 

30510 OPEN #1,4,0 ,“K:”:REM 
Open keyboard for input 

30515 GET #l,OPT:CLOSE #1:REM 
Get option and close channel 
30520 IF OPT=65 OR OPT=97 
THEN 170: REM Abort 

30530 IF OPT=82 OR OPT= 114 
THEN 110:REM Try again 

30540 GOTO 30500:REM Wait for 
A or R 

Granted, you normally wouldn’t 
want such a complicated error¬ 
handling routine for so simple a pro¬ 
gram. But it’s a good example of how 
error trapping can make a program 
easy for anyone to run. We could even 
make the routine more complicated 
by having the program offer to unlock 
a locked file or delete some files if the 
disk or directory is full. The main 
thing is to be familiar with these 
techniques. 

PREVENTIVE 

MAINTENANCE 

You can also use preventive pro¬ 
gramming techniques to make sure 
that some errors never occur. Con¬ 
sider this short program to divide two 
numbers: 

100 ? “Numerator”; INPUT N 
110 ? “Denominator”; INPUT D 
120 ? “The answer is:”; N/D 
130 GOTO 100 

This program will crash if the user 
enters zero as a denominator. While 
we could add a TRAP statement and 
a complicated error-handling routine, 
it’s much simpler to check the input 
before the division ever occurs: 

115 IF D = 0 THEN PRINT “Division 
by zero is a no-no.”:GOTO 110 
Another problem happens when 
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the user tries to put too many num¬ 
bers into an array. Rather than check 
for an array dimension error we can 
avoid a problem by counting the 
numbers as they are entered. 

100 TRAP 40000:REM Let the oper¬ 
ating system handle any errors 
110 DIM NUMS(100):I = 0 
120 IF 1 = 100 THEN ? “I can’t ac¬ 
cept any more numbers.”:GOTO 200 
130 1 = 1 + 1:? “What is number”;I; 
“(or 999 if done)”; 

140 INPUT N 

130 IF N = 999 THEN ? “Numbers 
entered.”:GOTO 200 
160 NUMS(I) = N 
170 GOTO 120 
200 END 

ADVANCED TECHNIQUES 

Believe it or not, errors aren’t al¬ 
ways bad. Error codes often show 
what’s going on inside the machine. 
After we’re comfortable with error¬ 
handling routines, we can use this in¬ 
formation to make our programs 
more user-friendly. 

Before we go on, we need to know 
how to find out where in the program 
an error has occurred. The line num¬ 
ber where the error occurs is stored 
in memory locations 186 and 187. To 
get the value, we’ll create a variable 
ERL and assign it the value PEEK(187) 
* 256 + PEEK(186). 

Atari BASIC returns a type mis¬ 
match error if it expects a number to 
be entered, but instead the user sim¬ 
ply presses the [RETURN] key. This 
is because it interprets the [RETURN] 
as a single character string. Knowing 
this, let’s set up a loop that accepts 
numbers until a [RETURN] is pressed. 

100 TRAP 30000:REM Set error 
trap 

110 DIM NUMS(100):I = 0 
120 IF 1 = 100 THEN ? “1 can’t ac¬ 
cept any more numbers.”:GOTO 200 
130 1 = 1 + 1:? “What is number”;I; 
“(or <CR> if done)”; 

140 INPUT N 

150 NUMS(I) = N:GOTO 120 
160 ? “Numbers entered.” 

200 END 


30000 TRAP 40000:REM Trap 
turned off 

30010 ERR = PEEK(195):ERL = 
PEEK(186) + PEEK(187)* 256 

30020 IF ERR = 8 AND ERL = l40 
THEN 160 

30030 ? “Error”;ERR; “at line” 
;ERL; “has occurred.’’:GOTO 
200: REM Give up 

Notice that we set a TRAP 40000 
at the beginning of the error-handling 
routine. This is redundant because the 
error which caused you to hit that line 
would disable the error trapping any¬ 
way. However, it makes this program 
much easier to read and modify. 

Another application is to use error 
trapping to see when a list of DATA 
statements is exhausted. The pro¬ 
grammer usually knows how much 
data to expect, so you can put your 
READ statement in a loop or check 



each item READ against a number like 
999 or a string such as “END” that sig¬ 
nifies the end of the data. However, 
you might want to let the user cus¬ 
tomize the list, in which case having 
to remember how to end it is clumsy. 

An example might be a list of names 
which can be modified depending on 
who’s using the program. In the fol¬ 
lowing program segment, imagine 
we’re READing the names of people 
who are sharing pizza. Later, we’ll 
print a list of who owes how much 
money. To do this, read the names 
into a string array until error 6—Data 
List Exhausted—occurs. 

100 TRAP 30000 

110 DIM X$(10),EATER$(200):I = 0: 
REM Allow for 20 names of length 10 
each. 


115 EATERS = “ ”:EATER$(200) = 
EATERS :EATERS(2) = EATERS :REM 
Set array to spaces 

120 IF I = 20 THEN ? “Sorry, list ig¬ 
nored after ” ; XS:GOTO 200:REM Too 
many names 

130 READ XS 

135 EATERS(I * 10 + 1,1 * 10 + 10) = 
XS 

140 1 = 1 + l:GOTO 120 

160 ? “The names are in the array.” 

200 REM Continue with program. 

300 END 

20000 DATA Char lie,Gregg, Nat, 
Carolyn, Marta 

20010 DATA Andy,Heidi,Tom 

30000 TRAP 40000 

30010ERR = PEEK(195):ERL = 
PEEK(187) * 256 + PEEK(186) 

30030 IF ERR = 6 AND ERL = 130 
THEN 160 

30040 ? “Error “;ERR;” at line 
“;ERL;” has occurred.”:GOTO 300: 
REM Give up 

The number of ways to incorporate 
error trapping is virtually unlimited. 
If you’re getting data from a disk, you 
can use the above idea to read from 
the file until you get an error 136— 
End of File. If your program is going 
to write a file, a quick way to tell if 
the file already exists is to try to read 
it first. If it’s not there you’ll get error 
number 170—File Not Found. Using 
error trapping to check for this is 
easy—and may save someone from 
overwriting an important file. 

Like any aspect of programming, a 
good error-handling routine should 
be “invisible” to the user. If you have 
an idea of which kinds of errors to ex¬ 
pect, you can troubleshoot potential 
problems without the user ever 
knowing something’s gone wrong. 
On the other hand, if your error¬ 
handling routine can’t figure out what 
to do, you can at least print out error 
messages in plain English and give the 
user a chance to recover from the 
problem without a crash. Whatever 
the situation, error trapping is an ef¬ 
fective way to make your programs 
polished, professional, and easier to 
run. A 
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Q Tfype-ln Software 

Interface 

AN ATARI GROWS ORCHIDS IN TEXAS. BY JOHN LITTLE 

R eal-World Interface is a hardware-software project that 
.. can control a wide variety of electronic equipment 
with your Atari. This BASIC program works on all 8-bit 
Atari computers of any memory size, with disk or cassette. 




The idea of using a computer to 
control real objects always fascinated 
me. Last summer I decided that some¬ 
thing had to be done about the prob¬ 
lem of low humidity in my orchid 
greenhouse and my Atari turned out 
to be part of the solution. 

If you don’t have a greenhouse, 
stick around anyway. The first link be¬ 
tween my Atari and my greenhouse 
is a simple relay that can be used for 
many different applications. And pro¬ 
gramming the Atari to operate it is 
really easy. Also, the real-time clock 
routine that I use for timing relay 
operations can easily be incorporated 
into other programs. 

The conventional approach to my 
low-humidity problem would have 
been to use a humidistat to control a 
solenoid valve (operating on house 
current) to control water flow to mis¬ 
ters or foggers. But there are other 
considerations here in Austin, Texas 
where high heat can be a serious 
problem. I had been searching for 
some type of emergency system to 
cool the plants in case of power fail¬ 
ure, and the best answer seemed to 
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be drenching them in fog. 

The problem was how to generate 
the fog with no electricity. At the 
same time I decided to install misters 
for humidity, I came across an ingen¬ 
ious battery-operated water valve. I 
knew immediately that I had found 
not only a means of solving my hu¬ 
midity problems, but also the key to 
making the elusive emergency system 
work. 

This valve comes with a program¬ 
mable electronic module to control 
when the water will be on. It was sim¬ 
ple to remove the module—which is, 
of course, just an elementary 
computer—and connect the valve to 
a much more complex computer, my 
Atari. Originally, the valve could be 
set for a maximum of four time 
periods per day, with the shortest 
time period being one minute. But 
with the Atari, I can turn the misters 
on for just seconds, and I can do it 
as many times a day as I want. 

Just as important, with this setup 
I can be sure the misters don’t come 
on when they shouldn’t. Orchids 
should not be wet when the temper¬ 
ature is too low, and they should al¬ 
ways be dry by nightfall. A thermostat 
placed in the circuit between the valve 
and the Atari makes sure that the mis¬ 
ters don’t come on if the temperature 
is too low. And this program lets me 
choose the earliest and latest times for 
the misters to come on. 

RELAY OPERATIONS 

Finally, the circuit and program are 
set up so that instead of operating the 
relay to turn on the misters, as you’d 
expect, the relay shuts off the misters 
when it operates and turns them on 
when it releases. If the power fails and 
the Atari goes down, the relay releases 
and the misters stay on, providing 
some relief from the heat until power 
is restored. Then, because of the in¬ 
ternal design of the joystick ports, the 
relay will operate automatically and 
shut off the water without needing a 
program to tell it to. And the green¬ 
house fans can start drying things off. 


The first step in controlling the re¬ 
lay is to configure the joystick port— 
the two jacks that the joysticks plug 
into. PORTA refers to Jacks 1 and 2. 
On the early Atari 400 and 800 com¬ 
puters, PORTB refers to Jacks 3 and 4. 

These ports use memory-mapped 
I/O (input/output), which means each 
port corresponds to a one-byte mem¬ 
ory address. Pins one through four in 
jack 1 correspond to bits zero through 
three at address 54016 (PORTA), and 
the same four pins in jack 2 corre¬ 
spond to bits four through seven at 
that address. By manipulating the data 
at that address with POKEs in BASIC, 
we can control whether each one of 
those pins is used for input or output, 
and what data we send. 

Now we configure for input or out¬ 
put. Address 54018 (PACTL) is the 
PORTA controller. When bit 2 of 
PACTL is set to 0, any value POKEd 
into PORTA determines whether the 
individual pins of the port will be out¬ 
put or input pins. When bit 2 is set 
to 1, any value POKEd into PORTA is 
considered data for output. 

Line 340 of the Real-World Interface 
program shows how bit 2 is set to 
zero. Its normal state is 1. To set it to 
0, we subtract 4 (the decimal value 
represented by bit 2) from the origi¬ 
nal contents of PACTL, after saving the 
original contents in ORIG. 

POKE PORTA with 255 to set all 
eight I/O pins for output. Finally 
POKE ORIG back into PACTL so that 
PORTA can send whatever data is 
POKEd into it. 

Output from the joystick ports is bi¬ 
nary, which means it can be in one 
of only two possible states: zero and 
one (also called low and high). Your 
Atari interprets these states as ground 
and + 5-volts. Each pin that has a 0 
in its corresponding bit in PORTA will 
send a zero or ground. Each pin with 
a 1 in its corresponding bit will out¬ 
put + 5 volts. The + 5 volts is how we 
operate the relay! 

When you turn on your Atari, each 
pin has + 5 volts. If your project is 
plugged into the jack when you turn 


your Atari on, the relay will operate. 
Then, when you configure the port 
for output, the pins will automatically 
drop to ground and your relay will re¬ 
lease until you POKE the appropriate 
value into PORTA. This must be kept 
in mind when planning how your 
project will operate. In my case, I must 
remember to shut off the water valve 
in my greenhouse or the misters will 
come on when I start the program. 

THE CIRCUIT 

Before we get any further into the 
circuit, there’s something you need to 
know about the difference between 
PORTA and PORTB. In the 800 and 
400 each of the I/O pins in PORTB 
has a little “helper” in the form of a 
+ 5 volt source connected through a 
4.7K resistor. The PORTA pins don’t 
have this and when you send a “high” 
through a PORTA pin, it doesn’t have 
nearly enough power to make this cir¬ 
cuit work. 

So I added a “helper” to this cir¬ 
cuit for XL/XE owners who have only 
PORTA available. In Figure 1, resistor 
R3 is drawn with a dotted line. R3 is 
a 4.7K resistor that supplies + 5 volts 
to the output line, similar to what’s 
built into PORTB. You can operate this 
circuit from PORTB on an 800 or 400 
if you omit resistor R3 and make the 
programming changes I’ll specify 
later. 

WATER VALVE 

As it comes from the factory, the 
RainMatic Corp. water valve has a 
compartment for four C batteries, and 
an electronic programming module 
with an LCD display for setting up the 
watering schedule. I removed the pro¬ 
gramming module to connect the 
Atari in its place. I also removed the 
batter}^ compartment and substituted 
a longer-life 6 volt lantern battery. 
This left two sides of the assembly 
open, so I had to make two crude 
plastic covers and caulk them well, to 
keep moisture, dust, and insects out 
of the valve assembly. The wiring sim¬ 
ply comes out through the caulk. 
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Figure 1, Attaching the relay to the joystick plug. 


Figure 2, Attaching the relay to the valve and the thermostat. 


The lead from the negative side of 
the battery first hits the thermostat, 
assuring that the valve will stay closed 
until the air temperature in the green¬ 
house is high enough. 

(see figure 2) 

The normally closed (NC) pin of 
the relay is connected to the black 
wire of the valve coil, which opens 
the valve. The normally open (NO) re¬ 
lay pin is connected to the green wire 
of the valve coil, which closes the 
valve. 

Normally the valve is open and the 
water flows. To turn the water off, my 
program POKES a 1 into PORTA and 
+ 5 volts is sent on pin 1. This closes 
the relay and voltage from the lantern 
battery is applied through the ther¬ 
mostat and the relay to the green lead 
on the valve, which closes. 

Voltage continues to be applied to 
the green lead, but nothing happens. 
There is no battery drain because a 
switch inside the valve opens the cir¬ 
cuit. When it’s time for the water to 
come on again, the program POKEs 
0 into PORTA. The relay releases, 
removing voltage from the green lead 
and applying it to the black lead. The 
valve opens and the water flows 
again. 

A lead runs from the COLD side of 
the thermostat to the green wire of 
the valve. This insures that the valve 
will automatically close if the temper¬ 
ature drops below the threshold while 
the water is on. 


PARTS LIST 

PC BOARD 

Radio Shack #276-168 

Rl. R2 

IK Ohm Resistors 

R3 

4.7K Ohm Resistor 

TRANSISTOR 

2N2222 

RELAY 

Radio Shack #275-216 

LED from Radio 

Shack 

9-conductor ribbon cable 

9-pin female connector 


THE CLOCK 

The heart of my Atari clock is a 
machine-language program running 
in the vertical-blank interval. It is 
based on OS location RTCLOK (18, 19, 
20), but only reads location 20, which 
counts jiffies (1/60 seconds). 

Real-World Interface uses locations 

19 and 18 to store the count of 
seconds and minutes, respectively, 
obtained by watching the content of 
location 20, resetting it when it 
reaches 60, and incrementing the 
seconds count at the same time. 

I wanted to store the count of hours 
in Page 0 so it could be accessed 
quickly. I chose location 207, which 
seems to be unused by most versions 
of DOS and BASIC. I also used 208 
and 209 for counting jiffies. Location 

20 is actually updated every 
1/59.92334 second—not every 1/60 
of a second. In the short run, this isn’t 
enough of an error to cause much 
trouble. But with a continuously run¬ 
ning clock, the error builds up sur¬ 
prisingly fast. 

So I built a correction factor into my 


clock. Since the Atari timer gains a 
tiny fraction (0.07666) of a jiffy each 
second, I calculated how many jiffies 
it was gaining in a minute (4.5996). 
Dividing this number into the num¬ 
ber of seconds in a minute yielded 
13.044612 seconds, which told me 
how often I needed to increment the 
jiffy counter to keep the clock as 
accurate as possible. Since 13.044612 
seconds equal 782.67672 jiffies, I 
rounded off my number to 783- 
That’s what the clock program counts 
to before adjusting the jiffy counter. 

I realize this may seem like nitpick¬ 
ing to some, but achieving the highest 
possible accuracy allows a continu¬ 
ously running program like my green¬ 
house tender to go longer between 
clock resets. 

ABOUT THE PROGRAM 

Type in Listing 1, INTRFACE.BAS, 
check it with TYPO II and SAVE a 
copy before you RUN it. 

Some simple line-editing will turn 
INTRFACE.BAS into a universal relay¬ 
controlling program. Since the water 
goes on when the relay is off, all that’s 
required is to replace the word WA¬ 
TER with RELAY and ON with OFF 
(and vice versa) in the following lines: 
900, 920, 1020-1070, 1112-1160, 1190, 
1200, 1280, 1320. Also swap lines 
500 and 510. 

To RUN the program using PORTB 
on an Atari 400 or 800, just change 
line 5 to: 5 LET A800 = l 
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When RUN, INTRFACE.BAS loads 
my machine language timing routine 
into the second half of Page 6. 

Next, the variables are declared and 
the clock is initialized beginning at 
line 100. The program asks if you 
wish to reset the clock, which is on 
a 24-hour cycle, not 12 hours, and will 
accept either an uppercase or lower¬ 
case response. 

If you choose to set the clock, the 
time is displayed onscreen until you 
press [START]. If the clock hasn’t been 
set, don’t answer No to the reset 
prompt, otherwise the clock will run 
at one-fourth speed. Merely stopping 
INTRFACE.BAS will not stop the 
clock. 

After configuring the port for out¬ 
put, the program calls subroutines at 
lines 880 and 1110 that request all tim¬ 
ing parameters. These parameters 
specify how the relay will function. 
First the program asks for the earliest 
and latest start times. If you answer 


the first prompt with a [RETURN] 
only, it will assume that round-the- 
clock operation is okay. 

Next, the program asks for the 
length of time you wish the water to 
be on, and the length of time you 
wish it to be off. If you press 
[RETURN] at each of these prompts, 
the program jumps to the manual 
operation routine at line 1240. This 
routine asks if you wish to turn the 
water on or off before exiting the 
program. 

Before operation actually begins, 
the time is displayed at the top of the 
screen. Several options are offered at 
the bottom of the screen. 

At this point you can stop the pro¬ 
gram with the water on, stop with wa¬ 
ter off, or if you want to change one 
of the parameters, you may re-start the 
program without resetting the clock. 
These options are also available while 
the program is running. 

Finally, press any key to start the 


timer. 

PROGRAM TAKE-APART 

In lines 440-460, the program 
checks to see if it’s time to operate a 
relay. If so, lines 500 and 510 initial¬ 
ize variables before calling the timing 
and relay subroutines. 

In lines 600-730, the program gets 
the correct time, adds to it the amount 
of time specified for the relay to be 
operated or released, and adjusts any 
minute or second values greater than 
60, or hour values greater than 24. 

Lines 770-820 contain the timing 
loops, one each for second, minute, 
and hour. 

Lines 840-847 hold the subroutine 
that displays the time at the top of the 
screen. a 


John Little has been programming Ataris 
and tinkering with hardware projects 
since 1984. 

Listing on page 28 
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Atari 520ST fm 

with DS DD Drive and Color Monitor 


UNBELIEVABLE DEALS EVERYDAY! 


Compute^! 

-^■^/Rep 


:k _ 






with trade-in of 130XE, 1050 Drive, 1702,1025/1027 
5CALL for your system 


^tradSn 


Used 


520ST FM Computer $399 1040ST Computer 
1050 Drive $139 130XE Computer 

Parrot Digitizer $28 65XE Computer 


$585 

$1 


Indus GT AT 
Printers from 
Atari 1025 Printer 

Atari 16K Expansion 
Dgtizers/Synths from 
Joysticks from 


$139 1702 Monitor $139 
$49 Atari 1027 LQ Printer $79 
$79 Shanner 7 color prn $109 


Atari 850 Intfc $69 
C1802C Color Mon. $149 
Software/Books from $1 


All references to trade-ins assume equipment to be in good 
working condition. Shipping/handling will be added to all 
prices. No additional charge for credit cards or COD. Mail order 
prices shown. 

WE CHECK FOR CREDIT CARD THEFT! 


520ST FM CPU 
SC1224 Color Mon. 
256K DRAM 


New 

$499 Atari 1040STPIus+ $719 
$325 EZ-RAMIIOK $125 
$10 Atari SX212 Modem $89 


1802D Monitor $189 XF-551 Drive $1 

65XE Computer $109 Atari 130XE $149 

Avatex 1200eHC $79 Prac.Per. 2400HC 

R-Time 8 Cart. $49 US Doubler w/DOS $39 

256K upgrades Ok $35 Atari XE Game Sys $1 

Star NX-1000 144cps $189 Epyx 500XJ Joystick $19 


$Cash for your equipment 
Thousands of software & book titles 
Plus, MUCH, MUCH MORE! 

5721 Arapahoe Suite IB 
Boulder, CO 80303 
Technical Support/Questions: 1-303-939-8144 


1 - 800 - 347-3457 


Authorized Sales & Service for 
COMMODORE/AMIGA 
and ATARI ST/XL/XE 
Computers and Accessories. 
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Cardiac Arrest! 

1988 Antic Award Winner 
"Outstanding Product" 

IBM, Apple II, Atari XE, Atari ST 

Antic: "Impressive and amazingly complete." 

ST World: "Remarkably easy to use." 

Computer News (or Physicians: "Excellent value." 



You interpret the patient's history, on-screen EKG, lab 
data, and vital signs, then give treatment orders in plain 
English. Varying degrees of difficulty, with over 45 patients 
— and none is ever the same twice. Go "beyond ACLS" 
with hypothermia, hypocalcemia, hyperkalemia, and 
more. So much fun, non-medical people use the simulator 
to "play doctor." 


ACLS Teaching Series* 

$109 

Cardiac Arrest! 

$69 

ACLS Protocols 

$29 

EKG Teaching 

$29 

CardioQuiz 

$19 

61ood Gases 

$24 


*The four-disk ACLS teaching Series includes Cardiac 
Arrest!, ACLS Protocols, EKG Teaching, and CardioQuiz 
at 34% savings. 


Mad Scientist 2063 North 820 West 

Software Pleasant Grove, UT 84062 

Visa/MC orders 801-785-3028 


Computer-Assisted Instruction 

QuizPlus 
for Atari ST 

QuizPlus is a C.A.I.-ge 
allowing you to mix tutorials, questions, and 
DEGAS-format pictures to create 
mouse-driven education disks. Includes 
editor and run-time module. 

Quiz-Plus C.A.I. System $29 

We also sponsor a distribution system to help 
you sell QuizPlus education disks you've 
created. This month's featured QuizShare 


education disks: 


The Solar System 

$10 

The Circulatory System 

$10 

Military Aircraft 

$10 

Mad Scientist Software 


2063 North 820 West 
Pleasant Grove, UT 84062 

Visa/MC orders call 801-785-3028 



erating system, 



THE AMAZING NEW 

VOICE MASTER r Junior 


TURNS YOUR 
COMPUTER 
INTO A TALKING 
AND LISTENING 
SERVANT 

Get speech output and 
voice recognition in ONE pro¬ 
duct. Voice Master Jr. is easy 
to use with new commands added to BASIC. A music 
bonus lets you write and compose by whistling the 
tunel Unlimited uses for fun, education, practical ap¬ 
plications. Demo programs included. Price only 
$39.95 including software and manual. A Patented 
price/performance breakthroughl 
TO ORDER BY MAIL include $4 shipping & handling 
($6 Canada, SI2 overseas) per order. Visa, Master- 
Card phone orders accepted. Available for 
C64/128 and Atari 800/800XL/130XE. Specify 
when ordering. 30 day money back guarantee, 
one year warranty. Other enhanced voice I/O 
systems are available for Commodore, Apple, and 
IBM computers. 

Call or write today tor FREE Product Catalog 

COVOX INC (503)342-1271 

675 Conger St., Eugene. Oregon 97402 



EQUIVALENCE 

continued from page 48 

name table. Be sure your program 
knows how to search through the 
variable tables for the information it 
needs. 

OTHER USES 

The previous examples mostly 
speed disk I/O. But there are many 
other powerful ways to use equiva- 
lenced variables, such as creating and 
manipulating pseudo-records and 
defining pointers. 

Pascal lets you to declare RECORD 
data types. A RECORD is a variable 
which contains other variables. For 
example, a single RECORD variable 
for a banking program might contain 
a person’s name (a string), an account 
number (an integer), and account bal¬ 
ance (a floating-point number). 

You can emulate a RECORD in BA¬ 
SIC by consecutively equivalencing a 
set of variables into one large string. 

This form may be useful for creat¬ 
ing a small database or other systems 
where you need to keep data grouped 
together in a particular fashion. 

You can also use equivalenced vari¬ 
ables to emulate pointers. Just find the 
string’s eight-byte block in the variable 
value table and change its offset (bytes 
three and four) to point to the desired 
memory location. In Listing 1, for ex¬ 
ample, we made the string point to 
the audio control registers. 

Try some high-speed screen I/O. 
Create a string the same size as the 
screen and point it to screen memory. 
Anything you put in the string will ap¬ 
pear onscreen instantly. 

PROGRAM TAKE-APARTS 

Listing 1 equivalences a string with 
the audio control registers, memory 
locations 53760-53767. S$ is an eight 
byte string that is offset so that it 
points to those locations. CHS con¬ 
tains the frequency, distortion, and 
volume values for each of the eight 
audio control registers. 

The first part of Listing 1 takes the 
frequency, distortion, and volume 


values from CHS and puts them into 
the SOUND command. 

You could speed up this routine by 
storing these values in an array. This 
would avoid the string-to-floating- 
point conversions, but would require 
4,608 bytes of memory instead of 256 
bytes (nine times more space) and 
would still be slower than the second 
part of the program. 

In the second part, the program sets 
SS as a pointer to the audio control 
registers. They are set very quickly by 
copying eight-byte substrings of CHS 
into SS. 

Listing 2 demonstrates the gener¬ 
alized method for equivalencing vari¬ 
ables. As written, it can be RUN in 
Atari BASIC or Turbo BASIC XL. 

Listing 2 begins by asking for the 
size of the floating-point array M(). 
After DIMensioning M() and the 
string variables, Listing 2 finds the 
location of each of the variable tables. 

Next, the program jumps to the 
subroutine at line 2000 to find the 
variable number, offset and dimen¬ 
sions of M() and SS. The actual 
equivalencing of M() and SS occurs 
in lines 380-500. Lines 520-1250 con¬ 
tain the I/O and initialization bench¬ 
marks for the data in Figure 1 and 
Figure 2. 

The subroutine at line 1500 con¬ 
tains a timer and the subroutine at line 
1600 prints the first five elements of 
M() to show that the contents of M() 
actually do change during the bench¬ 
mark routines. A 


Doug White of Arlington, Texas uses his 
1200XL as an aid in designing and test¬ 
ing loudspeakers. This is his fi?st appear¬ 
ance in Antic. 

Listing on page 32 
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PRODUCT REVIEWS 


Celebrity Cookbook, Cheat! 


CELEBRITY COOKBOOK 

Liz Taylor’s diet lunch, Rock Hud¬ 
son’s hot buttered rum, Boy George’s 
diet breakfast, Ronald Reagan’s 
corned beef, Sophia Loren’s first- 
course pizza. . . Does your recipe fil¬ 
ing system consist of musty 3-by-5 
cards and food-stained newspaper 
clippings stuck into your crumbling 
copy of “The Joy of Cooking”? With 
this first installment of a promised six- 
volume Celebrity Cookbook series, 
it’s easy to take charge of your recipes. 

The software contains 30 celebrity 
recipes, plus goodies such as diet 
secrets of the stars, a wine directory, 
bartender’s guide and Perle Mesta’s 
Party Tips. All recipes can be dis¬ 
played onscreen or printed out. You 
can resize recipes in terms of the num¬ 
ber of servings and print a shopping 
list for any recipe. 

Menu selection can be made with 
the keyboard, joystick or ST mouse, 
although the joystick action seems too 
fast. The Cookbook’s publisher is 
working on the mouse-driven Graph¬ 
ics Operating Environment for the 
Atari 8-bit. The joystick doesn’t work 
at all in the main menu—a small flaw, 
but potentially confusing. When us¬ 
ing the keyboard, the [ARROW] and 
[RETURN] keys do most of the work. 

The heart of the program is the filer 
for your own personal recipes—My 
Favorite Recipes. This is really a small 
word processor and database, with 
cut-and-paste and search functions. 
You can ask for chicken recipes, 
recipes using anise, or recipes under 
a heading you define as “I’m tired and 
it’s easy.” With a little experimenta¬ 
tion, anyone can start filing right 
away. But don’t go too far too soon, 
print the help file first. It explains the 
data entry process, defining your 



fields and the more advanced func¬ 
tions of the filer program. 

To me, a recipe filer seems to be one 
of those applications for which the 
technology of choice is still pencil, 
paper and rusty 3x5 file box. Our 
computer lives close to the kitchen— 
in the dining room, cohabiting with 
10,112 toys. But typing in all of our 
recipes seems like an awful lot of 
work. And my review copy had a 
printing bug. My personal recipes 
printed out fine, but the celebrity rec¬ 
ipe printouts repeatedly crashed the 
computer. I mailed the disks back to 
the company around the time it 
moved from Palm Springs to Mary¬ 
land. At deadline I had received no 
response. 

If you do want your recipes on 
disk, Celebrity Cookbook is for you. 
The program is fun, easy and well- 
conceived and designed. Now if I 
could only figure out how to attach 
my blender to the cartridge slot.— 
DAVID MERRIHUE 

$29.99, 48K disk. U.S.A. Media, 7810 
Malcolm Road, Clinton, MD 20735. (301) 
868-5494. 

CHEAT! 

Cheat! intrigued me immediately. 

I don’t know how many times I’ve 


wished I’d had unlimited lives in a 
video game, or that I could advance 
past that screen that had confounded 
me for countless days and countless 
quarters. Well, although Cheat! won’t 
help you very much in the arcades, 
at least home players can end some 
of the torture. 

Cheat! is a game utility which 
makes a working copy of your favor¬ 
ite game, modified to allow unlimited 
lives. The only drawback of Cheat! is 
that it will only work for the titles it 
recognizes. And while the list is more 
than 100 titles long, there were only 
a couple of titles I had even heard of 
(and only one that I had available)— 
and I have hundreds of commercial 
games. Perhaps the other titles were 
public domain or shareware. 

But this aside, I selected Boulder 
Dash from the list to see how Cheat! 
worked. And it didn’t. I followed the 
instructions precisely. Cheat! told me 
it couldn’t locate the “Lose Life Rou¬ 
tine,” or something like that. Then it 
babbled about sector locations— 
gibberish to a technical novice like 
me. I can run any program, but I’d be 
hard pressed to peek into any disk 
files. 

In short, if you’re thinking of buy¬ 
ing this one, make sure it works with 
some of your titles, or you’ll be stuck 
with a $25 conversation piece. 

While I don’t think that any game 
on the market would drive me to buy 
Cheat!, I’m sure that some of you have 
programs you still haven’t mastered, 
or a level or two you still haven’t 
visited. Cheat! might be your only 
hope.-STEVE PANAK 

$24.95, 48K disk. Alpha Systems, 1012 
Skyland Drive, Macedonia, OH 44506. 
(216) 467-5665. 
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PRODUCT REVIEW 


NX-1000 RAINBOW 

First affordable COLOR dot-matrix printer. By Matthew Ratcliff 



T he Star NX-1000 Rain¬ 
bow is the first affordable 
and practical graphics- 
capable dot-matrix color 
printer. First there was the Epson JX- 
80 dot-matrix, which cost about five 
times more than the Rainbow. Then 
there were the more affordable 
Okidata thermal-transfer color 
printers, which used very expensive 
ribbons, were extremely slow, did not 
work with many popular printing 
programs and did not do a very good 
job of printing normal all-text pages. 
The NX-1000 Rainbow provides all 
the practicality of a standard dot¬ 
matrix printer, plus the beauty of 
vivid color—all at a reasonable price. 


Except for color printing, the Rain¬ 
bow is nearly identical to the standard 
NX-1000 printer reviewed by Gregg 
Pearlman in the October 1988 Antic. 
The Rainbow also has several type- 
styles and fonts, all selectable via mul¬ 
tiple panel-button presses—including 
draft and near letter-quality Courier, 
two Orators and Sanserif. 

Unfortunately, color selection was 
not added to the panel for the Rain¬ 
bow. Most software does not directly 
support color printing, so this would 
have been a very convenient enhance¬ 
ment. The Rainbow is completely 
Epson JX-80 compatible, and for 
Atari ST users a DEGAS printer-driver 
called JX80. PRT is already available 


on CompuServe’s SIG-Atari. 

Atari 8-bit owners can print color 
graphics on the NX-1000 Rainbow or 
the JX-80 with YEMACYB/4 software 
($29.95) by Electronical Software, P.O. 
Box 8035, Rochester, MI 48063. This 
color screen dump utility is capable 
of printing your favorite Micro Illus¬ 
trator formatted pictures in full color. 
Naturally, the 8-bit needs a printer in¬ 
terface such as ICD’s P:R: Connection 
to work with the NX-1000. 

The Rainbow has a rear tractor feed 
mechanism, giving it the ability to 
perform a reverse form feed. I’m will¬ 
ing to put up with the nuisance of a 
rear tractor feed (it’s difficult to get to 
and load paper properly) for this ad¬ 
ded feature, which greatly simplifies 
color separation printing. 

Using Publishing Partner Profes¬ 
sional software, the Atari ST can print 
images in color separation style, each 
color requiring a separate pass 
through the printer, followed by a re¬ 
verse form feed. The entire page is 
printed first in magenta, then cyan, 
yellow and black. The original YE- 
MACYB program (Reviewed in the 
July 1987 Antic, also available for 
$29.95 from Electronical Software.) 
supports multi-color printing like this 
on single-color printers, prompting 
you to change the color of the ribbon 
between each pass. With the NX-1000 
Rainbow and YEMACYB/4, you get 
faster and more convenient one-pass 
color printing. 

I was able to find some classic 
DEGAS pictures and print them on 
the NX-1000 Rainbow. Since I have 
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The Rainbow provides the prac¬ 
ticality of a dot-matrix printer, 
plus the beauty of vivid color. 


been playing with Lightspeed C on 
the 8-bit Atari growing Mandelbrot set 
fractals (Antic, November 1988), I had 
a lot of fun dumping color fractals to 
the Rainbow as well. The Rainbow 
does a very good job, much better 
than the Okidata thermal-transfer 
printers. And pictures are much less 
expensive to generate, thanks to the 
Rainbow’s multi-pass fabric ribbon. 

The ribbon has four color bands: 
black, cyan (blue), magenta and yel¬ 
low. It seemed to wear out rather 
quickly. Many of the newer printers 
using cartridge ribbons have small re¬ 
inking rollers built in, but the multi¬ 
ple color bands of the Rainbow’s rib¬ 
bons make such re-inking impossible. 
NX-1000 color ribbons cost about $11 


each and the black-only ribbons run 
approximately $6. 

Colored text is quite simple to ac¬ 
cess from any word processor. Color 
and font commands are sent to the 
printer by placing the letter C for 
color, or F for font selection, within 
a pair of double parentheses followed 
by a single ASCII digit indicating the 
font or color selected. ((C))l would 
tell the Rainbow to print RED text. 
((F))0 would select the near letter 
quality Courier font. 

The only drawback with these five- 
character command codes is that your 
word processor treats those charac¬ 
ters as text, but the printer gobbles 
them up as a command. This may 
cause some margin problems in your 


text, but you can work around this by 
keeping color and font commands on 
lines separate from the main body of 
the text. Colors such as green are 
created by the printer in two passes, 
first in yellow and then reprinting the 
line in cyan. When NLQ printing is 
enabled, all text is printed twice to get 
the higher resolution. If you have a 
rather tired ribbon, you may wish to 
enable double-strike printing for a 
darker output. Printing green, NLQ, 
double-strike text on the NX-1000 
Rainbow will require six passes of the 
printhead per line of text! The out¬ 
put is beautiful, but slow. 

I have found that you can select a 
single color, say green or red, from a 
simple BASIC program and then run 
the Hi Tech Expressions 8-bit pro¬ 
grams Print Power or Sesame Street 
Print Kit. All your cards and posters 
will print in that chosen color. 

Other features of the NX-1000 Rain¬ 
bow include some niceties like a 
power switch at the front, where it 
belongs. The printer connector and 
power cord are on opposite sides of 
the printer, not hanging off the rear 
where they can obstruct the paper 
path. Print and graphics quality of 
both black and color are very ac¬ 
ceptable. 

The rear tractor feed also provides 
for a feature called Paper Park. The 
Rainbow will reverse feed the paper, 
extracting it completely from the 
platen. Changing from tractor to fric¬ 
tion feed, you can insert single sheet 
paper from above the printer. When 
done, simply return to tractor feed 
and press the panel buttons for a form 
feed. The Rainbow will automatically 
reload your paper. Unfortunately, the 
printer does not find the precise top 
of form upon reload, requiring man¬ 
ual adjustment. 

The NX-1000 Rainbow has added 
a whole new dimension to my per¬ 
sonal computing. A 

$379. Star Micronics Inc., 200 Park 
Avenue, New York, NY 10166. (212) 
986-6770. 


FEBRUARY 1989 


59 




































































































24 HOURS 




Visa - MasterCard 



SERIOUS BUSINESS 

Can you really run a business on your Atari? You 
bet! TurboBase from MicroMiser is serious software 
for serious businesses. It computerizes your whole 
office with General Ledger, Accounts Receivable, 
Accounts Payable, Payroll, Inventory, Point of 
Sales, etc. It’s also a REAL database with REAL 
power to organize your information. After giving up 
on other databases, many happy customers use 
TurboBase for its database power alone. 

TurboBase is equal to anything running on IBM 
PCs, but costs thousands less. Hundreds of success¬ 
ful business are running on TurboBase . This is 
a comprehensive package; it’s flexible and sophisti¬ 
cated. Expect to spend about six weeks learning to 
get the most out of it. Of course MicroMiser pro¬ 
vides complete professional support. 

Now TurboBase 80 demolishes the final advantage 
of more expensive machines. It works with the Atari 
XEP 80 adaptor to give your work a full 80 col¬ 
umn display . See twice as much information at a 
glance. Lay out your reports and forms exactly as 
they’ll appear in print. If you don’t already have the 
Atari XEP 80 adaptor, we’ll provide that for you, 
too. 

TurboBase (TH0015).$159.95 

TurboBase 80 (requires XEP 80) (TH0016) $179.95 
Atari XEP 80, 80 column adaptor (TH0017). $79.95 


EVERYONE'S FAVORITE 


SUPERDOS 5.0 supports all drives and densities 
with auto-sensing so you’ll never again worry about 
mixed formats. Plus, you get support for RAMdisks 
(up to 320K), and you can restore deleted files and 
patch damaged ones and much more. Only SUPER- 
DOS 5.0 fully supports your new XF551 disk 
drive , yet is compatible with DOS 2.5. SUPERDOS 
is the easiest, friendliest DOS there is. See why 
everyone loves SUPERDOS. Imported from Austra¬ 
lia by Technical Support. 

SUPERDOS 5.0 (TH0023).$20.00 
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SUPPORT ATARI PR< 

ATARI 400/800/600/ 1200 



STICKYBEAR 


SAYS HI! 

He’ll give your kids a headstart. 
Pre-schoolers love Stickybear, 
and so do their parents. He’s the 
most popular name in young people’s 
software for a reason, he’s the best! 
Now these fun, educational programs 
can help your children to grow and 
develop. Don’t neglect the benefits 
your computer offers your little 
ones. Hours of excitment while they’re 
learning valuable primary skills. 

Rated for ages 3-6, but older kids love 
Stickybear, too. Order now and save 1/ 
3! From Optimum Resources/ 

Weekly Reader. 


Fun / eductional games for kids: 

Stickybear Shapes (TH0018). just $19.95 

Stickybear Numbers (TH0019). just $19.95 

Stickybear Opposites (TH0020). just $19.95 


Fun games for kids to play with their parents. 
Stickybear Basketbounce (TH0021) just $19.95 
Stickybear Bop (TH0022). just $19.95 


THE FINEST TEXT 
ADVENTURES 

Infocom always created the greatest 
text advetures. Now the Antic ARCADE 
brings you four of their best, at a fraction of 
the original prices. Find out for yourself why these 
adventures have become the most popular games of 
all time. From Mediagenic/Infocom. 

Mindshadow (TH0024).$39.9 S now $17.95 

Seastalker (TH0025).$39.95 now $17.95 

Mtoonmist (TH0026).$39£H now $17.95 

Wishbringer (TH0027).$39.95; now $17.95 







































IC ARCADE 


JRA MERS - BUY SOFTWARE! 

7600XL/800XL/65XE/130XE/XE GS 


3D DYNAMITE 


Now you can have the kind of 3D ability which is 
revolutionizing graphics on larger computers. With 
Super 3D Plotter II from Elfin Magic, your 8-bit Atari 
delivers Cyber Power. Plot complex solid objects. Spin 
them, rotate them, view them from any angle or 
distance. Work with a joystick or enter data num¬ 
erically, or both. Super 3D Plotter II is the most 
advanced solid object modeling program available on 
any 8-bit computer. And now the price’s reduced 25%. 
Super 3D Plotter II (TH0028). $39.95 now $29.95 


COMPUTERIZE YOUR HOME 

The X-10 is the most popular home control system. And 
no wonder, you don’t need expensive rewiring. X-10 
offers interfaces for all popular computers EXCEPT 
YOUR ATARI. Now Terrific Corp. comes to the rescue 
with the PowerManager. It hooks your Atari to any X-10 
interface designed for any other computer. 

Now your Atari controls the lights, appliances, thermo¬ 
stats, fans, alarms, and anything else electrical. Regu¬ 
late outside lighting for security, safety, and beauty; 
never come home to a dark house again. Control when 
the kids watch TV. Manage your furnace and air condi¬ 
tioner, save money on energy bills. Software and cable. 
(Requires CP290 Powerhouse Interface from X-10). 
PowerManager (TH0029). $39.95 now $24.95 


PRINT SHOP 
FONTS AND BORDERS 

Everybody’s got lots of Print Shop pictures, but where do 
you find fonts and borders? Right here! We have the 
whole collection from No Frills Software, all four disks! 
(Requires Print Shop upgraded with the Print Shop Companion and 


XL/XE with at least 64k). 

PS Fonts and Borders #1 (TH0030).$14.95 

PS Fonts and Borders #2 (TH0031).$14.95 

PS Fonts and Borders #3 (TH0032).$14.95 

PS Fonts and Borders #4 (TH0033).$14.95 

Print Shop and Print Shop Companion® Broderbund Software 


HALF PRICE MIDI! 

"iHgi 

Yes, prices for these fabulous Hybrid Arts hard¬ 
ware/software systems are slashed in half. All you 
need to control MIDI from your Atari. MIDI Track 
controllers are the most sophisticated 16 track 
sequencer!editors you can get. Compose, edit, and 
play your creations. Use MIDI Track in your music 
room, or use it in your concerts. It’s equal to any¬ 
thing around - at a fraction of the cost. Plus you can 
instantly find and load the exact sounds you want 
with the famous Hybrid Arts Patch Librarians. So, 
whether you’re a garage band on the way up, a 
successful professional, or even if your family just 
gathers around the keyboards in the evening, MIDI 
is your future in music. And MIDI is Hybrid Arts. 

MIDI Track II (TH0034).. $350 now $174 

MIDI Track III (128K) (TH0035).. $375 how $187 
Plus these great Patch Librarians: 

CZ Librarian (for Casio CZ keyboards) 

(TH0036).$79.95 now $39.95 

DX Libraian (for Yamaha DX Keyboards) 

(TH0037).$79.95 now $59.95 

Gen Patch (generic, for all equipment) 

(TH0038).$149.95 now $74.50 


PERSONAL POWER 

You paid for Player-Missle Graphics, Display List 
Interrupts, superb sound, etc. - why can’t you use 
them? Now you can! Advan BASIC is the most 
powerful language ever created for your Atari. 
But it’s also the easiest to use. Write high speed, 
professional-quality, software. It’s easy and fun. 
Since it’s BASIC, it’s very easy to use. Since it’s 
compiled, it’s very, very fast. Order now, save 25% 

Advan BASIC (TH0039).$39.95 now $29.95 

Modules to increase your productivity: 
Utilities Pack (includes runtime) 

(TH0040). $29.95 now $24.95 

Screen Design (for the professional look) 

(TH0041). $29.95 now $24.95 

Optimizing Compiler (when speed's everything) 
(TH0042). $24.95 now $19.95 


25% off 
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TO KEEP YOU AHEAD 

CREATIVE PROCESS - This amazing outline 
processor organizes your ideas for writing - or for 

anything else. (AP0151).$19.95 

SPELL MAGIC - Catch embarrassing spelling 
errors in your reports and letters. Works with any 

word processor. (AP0144).$19.95 

PRINTER DRIVER CONSTRUCTION SET - 
Make your AtariWriter cartridge compatible with 

any printer. (AP0131).$19.95 

BACKTALK 1.2- The programmable macros 
automate your telecommunications, save you time 

and money. (AP0154).$19.95 

CHAMELEON TERMINAL EMULATOR - Call a 
mainframe with your Atari: TTY, ADM-3A, VT-52, 

IBM 3031. (AP0113).$19.95 

DISK SCANNER - Recover damaged or deleted 
files on single or double density drives. 

(AP0145).$15.95 

SHERLOCK 1050 - Recover damaged or deleted 
files on single or enhanced (dual) density drives. 
(AP0155).$19.95 


ORDER BY MAIL! 


Send check or money order to: 

Antic Software#MA89, 
544 Second Street, 

San Francisco, CA 94107. 

or phone toll free 

$20.00 minimum order, please include 
$3.00 shipping and handling per order. 
California residents add 6.5% sales tax. 


XTAL (CRYSTAL) - Command a star cruiser! 

Detailed effects are everywhere. More than a game: 
an epic. (AP0158).$15.95 

BLUE TEAM BRIDGE - Tournament level. Play at any 
time, improves your bidding-or learn to play. Great 
graphics (AP0178).$15.95 


A EXCUMENT, CHALLENGE, 
AND WONDER 


ASTROLOGY - Create beautiful charts for your 
family and friends. Imaginative gifts, always 

popular. (AP0167).$15.95 

ATARIORACLE - The computer OUJI board. 
Predicts the future, answers all questions, picks 

LOTTO numbers. (AP0138).$15.95 

CRIBBAGE and SEVEN CARD STUD - Two 
great card games. The poker players don’t cheat, 

but they bluff. (AP0173).$15.95 

COLOSSUS CHESS 3.0 - The best Atari chess 
game for the serious player, beginner or Grand- 

Master. (AP0161).$15.95 

PUZZLER - Infinite jigsaw puzzles, use your own 
pictures. Set difficulty level for any age group. 

(APO150).$12.95 

BUMPOMOV’S DOGS - A two-player, non-violent, 
action game you can enjoy with your kids. Great 

family fun. (AP0112).$12.95 

BURGERS - Computer fun for younger kids. If you 

eat too many burgers, POP! (APO109).$12.95 

TAXICAB HILL - Delightfully chaotic as other 
cabbies steal your fares. Variety of neighborhoods, 

great music. (AP0137).$15.95 

DIGGERBONK - Scrolling, multi-screen arcade 
excitement for kids of all ages, complete with a 

Panic Button. (APO107).$12.95 

DRAGON’S QUEST - A wonderful illustrated 
adventure game for your entire family. Fast and 

fantastical. (AP0139).$15.95 

KING TUT’S TOMB and CONSTRUCTION SET 
- 48 dangerous, multi-screen tombs, or construct 

your own. (AP0149).$15.95 

LORD OF THE ORB - Intense arcade action as 
you search the huge scrolling castle for the stolen 

Orb. (APO103).$15.95 

CHOP SUEY - Joystick-busting, action-packed, 
martial arts excitment. One of our all-time best 

sellers. (AP0162).$15.95 

MARS MISSION II - Streak through the skies and 
the caverns of Mars. Furious action is everywhere. 
(APO120).$15.95 
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EDS YOU - HELP US GROW 

JTURE SOFTWARE FOR YOUR ATARI 



24 HOURS 


^ 4-7001 


Visa MasterCard 



ART + MUSIC + JOY = 
COMPUTER CREATIVITY 



PERSONAL GROWTH FOR 
YOU AND YOUR FAMILY 


COLOURSPACE - The spectacular visual effects 
generator. Control your own mind-bending light 


shows. (AP0166).$15.95 

RAMBRANDT - The best paint software, bar none. 

Joystick or tablet. Best seller. (AP0157).$19.95 

SOLID OBJECT MODULE - Create 3-D objects 
automatically, view from any angle. (Requires 

RAMbrandt). (AP0182).$15.95 

PICTURE PLUS and LISTER PLUS - The 
complete graphics printing set. For almost all 
pictures and printers (AP0179).$19.95 


SCREENPLOT - Print Atari pictures on most 
plotters, including the Atari 1020. (AP0135) .. $15.95 
ENHANCED POKEY PLAYER - Compose music, 
change it - experiment. Save the best. Add songs to 

your programs. (AP0147).$15.95 

ENVISION - Fills all your character graphics needs: 

animation, fonts, multi-screen maps, much more. 

(AP0185).$19.95 

GRAPHICS SHOP - Convert your own pictures to 
use with Print Shop signs, banners, cards, etc. 
(AP0156).$19.95 



POWER TOOLS 


BASIC VIEW - BASIC program analyzer and 
debugger. Write better programs, faster. For beginner 

or expert. (AP0192).$19.95 

FLOATING POINT PACKAGE and EXTENDED 
DDT - Easy math for MAC/65 and a great assembly 

debugger. (AP0189).$19.95 

DEEP BLUE C and MATHLIB - Use C, the language 
of the future, now! Includes advanced math library. 

(AP0188).$19.95 

INTERLISP/65 - Learn Artificial Intelligence 
programming with LISP, available now for your Atari. 
(AP0191).$19.95 


SPEEDREAD+ - Double or triple your reading 
speed. Read with less effort and better compre¬ 
hension. Proven techniques. (AP0164).$19.95 

MEMOREASE+ - Memorize anything quickly and 
easily. Learn speeches, songs, drama roles, etc. 

Improve your memory. (AP0163).$19.95 

EARTH VIEWS - An electronic globe/atlas and an 
exciting geography game. Useful, educational, fun. 

(AP0141).$19.95 

MAPWARE - Generate varied maps in 4 projections 

for school, business, HAM, etc. (AP0134).$19.95 

SPACE BASE - Star atlas identifies objects, refer¬ 
ence base gives you detailed information. For all 

ages. (AP0142).$19.95 

ORBIT: A TRIP TO THE MOON - Pilot your craft 
from Earth orbit to Lunar landing. Learn space 

navigation. (AP0168).$15.95 

SARATOGA - American Revolution strategy game. 
Detailed, realistic, fun. Full-color playfield map. 
(APO104).$15.95 


$ 1 o . 00 

Each 




PUBLIC DOMAIN 
WINNERS! 


PHOTO GRAPHICS - Great digitized pictures (PD0017) 

ANTIC FORTH - Compact, fast programming language (PD0020) 
THE FIX XL - Run older programs on XL/XE computers (PD0026) 
CROCKFORD’S WHIMSY - Magical disk for all ages (PD0033) 
CUES EDPACK #1 - Educational programs (PD0044) 

CUES EDPACK #2 - More Educational programs (PD0045) 
ASTRONOMY & METEROLOGY Great for the hobbiest (PD0063) 
130XE HI-RES DESIGNER - GR.8 draw pgm for 130XE (PD0070) 
HEAVY METAL ART - Spectacular pictures, 100s of colors (PD0060) 
RAMBRANDT COLLECTION - The best RAMbrandt art (PD0073) 
STEVE DONG’S GALLERY - Incl. Challenger memorial (PD0074) 
VT100 TERMINAL EMULATOR - Access mainframes (PD0037) 
TEK 4010 TERM EMULATOR - For graphic mainframes (PD0083) 
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Tech Tips 


BOOLEAN STICK 

By Brian Murphy 

t’s a fairly easy task to program your joystick for 
drawing on the screen while avoiding Error 141 
(cursor out of range). A simple program to handle 
such an exercise might look like this: 

10 GRAPHICS 7+16 
20 COLOR 1 
100 S = STICK(O) 

110 IF S = 7 THEN X = X + 1 

120 IF S = 11 THEN X = X-l 

130 IF S = 13 THEN Y = Y+ 1 

140 IF S = 14 THEN Y = Y-l 

150 IF S = 5 THEN X = X+ 1:Y = Y + 1 

160 IF S =6 THEN X = X+ 1:Y = Y-l 

170 IF S=9 THEN X = X-1:Y = Y + 1 

180 IF S = 10 THEN X = X-1:Y = Y-l 

190 IF X>159 THEN X= 159 

200 IF X<0 THEN X = 0 

210 IF Y>95 THEN Y = 95 

220 IF Y<0 THEN Y = 0 

230 PLOT X,Y 

240 GOTO 100 

But there is a much better way to code this func¬ 
tion using Boolean Logic. You see, Atari BASIC 
assigns a value of one to any equation or inequal¬ 
ity that is true and zero to any that is false. It is im¬ 
portant to realize that you don’t need the conven¬ 
tion of an IF. . .THEN statement in order to have an 
expression such as T= 5 evaluated as true (one) or 
false (zero). For example: 

10 T = 5 
20 ? T = 5 

In this example the value five is assigned to T—so 
the expression T= 5 in line 20 is evaluated to be one. 
This mini-program will print a one. 

Armed with this background information we’re 
ready to rewrite the joystick function. Just replace 
lines 110 through 220 in the above program with 
the two following lines: 

110 X = X + ((S = 5) + (S = 6) + (S = 7)) *(x<l 59)- 
((S = 9) + (S = 10) + (S = 11))* (X>0) 

120 Y = Y + ((S = 5) + (S = 9) + (S = 13))*(Y<95)- 
((S = 6) + (S = 10) + (S = 14))*(Y>0) 

The parentheses () in the procedure are included 
to ensure that everything is evaluated in the proper 


order. Very often when using Boolean Logic you will 
need such parentheses. Also note that I used addi¬ 
tion (+) to represent Logical OR and multiplication 
(*) for Logical AND. This is possible only if there 
is mutual exclusion—only one of the possible con¬ 
ditions can occur at any instant of time. Since a 
joystick can only be pointed in one direction at a 
time, we are assured of mutual exclusion. 

Obviously this routine makes the program much 
shorter, requiring less memory. This new coding 
replaces twelve lines with just two. In many cases 
multiple IF. . .THEN statements that require sepa¬ 
rate lines can be summed up in one line. 

A joystick routine is only one of many possible 
uses for Boolean Logic expressions. By using 
Boolean Logic throughout your routines you can 
save a great deal of RAM for that extra feature you 
just couldn’t fit in. 

AUTORUN SETUP 

By Robert Wallace 

ntic published a September 1988 Tech Tip called 
AUTOGO.BAS which creates an autorun file that will 
LOAD and RUN BASIC programs. But this great util¬ 
ity already exists and most Atari users already have it with¬ 
out knowing. On the DOS 2.5 master disk there is a 
SETUP.COM file which will create AUTORUN.SYS files for 
BASIC. 

The menus are easy to follow. Note that SETUP.COM 
will work on the disk in drive 1 unless you use option 
1 in the menu below: 

Choose an option: 

1. Change current drive number 

2. Change system configuration 

3. Set up AUTORUN for Boot 

The DOS 2.5 Master disk came with new Atari drives 
from the 1050 on. If you don’t have a copy, check with 
your local dealer or users group about the best way to 
get a copy. 


Antic pays $25 for every original and exclusive Tech 
Tip submission that we publish. Send your 8-bit or ST 
disk and printout to: Antic Tech Tips, 544 Second 
Street, San Francisco, CA 94107. Tech Tips welcomes 
very short programs that demonstrate the Atari's 
powers, simple hardware modifications, or useful 
macros for popular software. 
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Lyco Computer 

Marketing & Consultants 


Air orders processed within 24 hours. 


Great Value 




Great Performance 
Great Price 


Panasonic, 

Office Automation^^^ 

1091 i Model II 

Speed and flexibility for your office 
or home. Panasonic combines 192 
cps draft with 38 cps NLQ for a 
wide variety of printing needs. 

Quality support through a 2-year 
warranty from Panasonic. 


The easier 
the better! 


$179 


95 



If you are seeking world renowned jzr, 
printer performance for your home, ^ 
look no farther than the 120D. Your — 
data processing needs are handled 
quickly at a print speed of 120 cps 
(draft) or 25 cps (NLQ). The 120D 
features 9 pin dot matrix print 
quality, standard parallel centronics 
interface and a 4K text buffer. 


p CITIZEN 

120-D 


$144 


95 
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PRICE GUARANTEE 

Since 1981, we have led the industry by continuing to offer the lowest national prices while 
providing quality service. Many companies have come and gone trying to imitate our quality and 
service. If by some oversight we do not have the lowest prices advertised on the products you 
desire, then we would appreciate the opportunity to rectify this oversight. 


TO ORDER, CALL TOLL-FREE: 1-800-233-8760 
New PA Wats: 1-800-233-8760 

Outside Continental US Call: 1-717-494-1030 

Hours: Monday through Friday, 9:00 a.m. to 9:00 p.m. 
Saturday, 10:00 a.m. to 6:00 p.m. 

For Customer Service, call 1-717-494-1670, 

9AM to 5PM, Mon. - Fri. 

Or write: Lyco Computer, Inc. 

P.O. Box 5088, Jersey Shore, PA 17740 


1 - 800 - 233-8760 



The Star NX-1000 Rainbow adds 
a whole new dimension to your 
work through multi-color printing. 
Star has designed 20 printing 
options into this printer. Add to this 
paper parking, Epson-IBM 
emulation, high resolution NLQ/ 
graphics for a printer with extra 
talent over the competition. 


• Hayes At Command 
Option Set 

• Auto/Manual 
Originate Answer 

• Auto Dial With Pulse 
or Tone Select 

• RS-232C Interface 

• 2-Year Warranty 


Don’t Miss Our Other Value 
Packed Pages In This Issue! 

Please Note: • full manufacturers' warranties • no sales tax outside 
PA • prices show 4% cash discount; add 4% for credit cards • APO, FPO, 
international: add $5 plus 3% for priority • 4-week clearance on personal checks 
• we check for credit card theft • sorry, compatibility not guaranteed • return 
authorization required • due to new product guarantee, return restrictions apply* 
price/availability subject to change • prepaid orders under $50 in Continental US, 
add $3.00 





































MENACE is a pure arcade game — a fast action packed journey 
through six very different worlds where lightning fast reflexes and 
furious fire button action are your only hope of survival. 

Your mission orders are simple, you must destroy the planet 
Draconia. In theory possible, in practice ... 

The planet Draconia, an unnatural planet, has been formed over 
many centuries by six of the most feared rulers that have ever 
existed. These rulers, exiled from their home galaxy, have ravaged 
and plundered space, using the worlds they have destroyed and the 
life forms they have created to build this planet of fear and death. 

Now an end must be put to their reign of terror. A large scale attack 
will prove too costly to our space fleets. Draconia has many orbiting 
defence systems, the sacrifice may be in thousands of lives. A single 
fighter craft, approaching undetected, may have a chance to avenge 
those who have perished, by destroying Draconia. You have that 
chance . . . 

AMIGA/ATARI ST —$29.95 


ADDICTIVE ARCADE ACTION 

PSYCLAPSE — A NEW LABEL FROM PSYGNOSIS 


COMPUTER 

SOFTWARE 

SERVICE 


2150 Executive Drive 
Addison Illinois 60101 
Toll Free: 1-800-422-4912 
In Illinois: 1-800-331-SOFT 






















